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本 书 系 统 地 介绍 了 网 站 开发 的 有 关 基 础 知识 和 一 些 经 典 网 站 的 开发 过 
程 。 全 书 共 分 为 7 章 ， 详 细 介绍 了 ASP.NET 4.0 与 Dreamweaver CS6 用 于 动态 
网 站 设计 的 相关 知识 。 第 1 章 为 网 页 设计 基础 知识 ， 介 绍 HTML 基础 、 制 作 
网 页 的 基本 方式 等 知识 。 第 2 章 为 可 视 化 网 页 制作 工具 Dreamweaver CS6， 全 
面 介 绍 Dreamweaver CS6 的 基本 功能 和 特点 。 第 3 章 为 Visual Studio 2010 概 
述 ， 全 面 介绍 Visual Studio 2010 的 安装 ， 开 发 环境 以 及 创建 应 用 程序 。 第 4 
章 为 ASPNET 4.0 简介 ， 全 面 介绍 它 的 新 特性 、 工 作 原理 、 开 发 环境 的 配置 以 
及 ASPNET 相关 技术 。 第 5 章 为 访问 数据 库 ， 介 绍 SQL Server 数据 库 和 存储 
过 程 的 基础 知识 。 第 6 章 和 第 7 章 为 在 线 书店 和 BBS 系统 两 个 典型 网 站 的 设 
计 过 程 , 详细 介绍 结合 ASP.NET 4.0 与 Dreamweaver CS6 进行 网 站 开发 的 思路 
和 开发 流程 。 

本 书 适合 用 于 大 专 院 校 计 算 机 专业 师 生 的 教材 或 参考 用 书 , 也 可 供 动态 网 
站 开发 人 员 及 对 ASPNET 4.0 与 Dreamweaver CS6 软件 感 兴 趣 的 人 员 学 习 参 
考 。 
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ASP.NET 是 Microsoft 公司 推出 的 用 于 编写 动态 网 页 的 一 项 新 技术 , 是 Microsoft 公司 
的 动态 服务 器 页 面 和 .NET 技术 的 集合 。ASPNET 4.0 在 ASP.NET 3.x 的 基础 上 进行 了 性 能 
方面 的 提升 ， 大 大 提高 了 编程 人 员 的 开发 效率 。.NET 技术 已 经 成 为 网 络 应 用 的 主流 ， 其 
在 开发 语言 方面 提高 了 界面 和 代码 的 可 定制 性 ， 封 装 了 复杂 的 运算 和 抽象 类 ， 使 得 网 络 开 
发 入 门人 员 可 以 更 轻松 地 掌握 和 应 用 。 

Dreamweaver CS6 是 一 个 可 视 化 的 网 页 设计 和 网 站 管理 工具 ， 支 持 最 新 的 Web 技术 ， 
包含 HTML RA, HTML 格式 控制 、HTML 格式 化 选项 、HomeSite/BBEdit 捆绑 、 可 视 化 
网 页 设计 、 图 像 编辑 、 全 局 查找 替换 、 全 新 FTP 功能、 处理 Flash 和 Shockwave 等 多 媒体 
格式 和 动态 HIML、 基 于 团队 的 Web 创作 等 ， 是 网 站 设计 者 的 首选 工具 。 

本 书 系统 地 介绍 了 网 站 开发 的 有 关 基 础 知识 和 一 些 经 典 网 站 的 开发 过 程 。 全 书 共 分 为 
7 章 ， 详 细 介绍 了 用 ASPNET 4.0 结合 Dreamweaver CS6 进行 动态 网 站 设计 的 相关 知识 。 
第 1 章 为 网 页 设计 基础 知识 ， 介 绍 了 HTML 基础 、 制 作 网 页 的 基本 方式 等 知识 。 第 2 章 为 
可 视 化 网 页 制作 工具 Dreamweaver CS6, 全 面 介 绍 了 Dreamweaver CS6 的 基本 功能 和 特点 。 
第 3 章 为 Visual Studio 2010 概述 , 全 面 介绍 了 Visual Studio 2010 的 安装 ， 开 发 环境 以 及 创 
建 应 用 程序 。 第 4 章 为 ASPNET4.0 简介 ， 全 面 介绍 了 它 的 新 特性 、 工 作 原 理 、 开 发 环境 
的 配置 以 及 ASPNET 相关 技术 。 第 $ 章 为 访问 数据 库 ， 介 绍 了 SQL Server 数据 库 和 存储 
过 程 的 基础 知识 。 第 6 章 和 第 7 章 为 在 线 书 店 和 BBS 系统 两 个 典型 网 站 的 设计 过 程 ， 详 
细 介 绍 了 结合 ASP.NET 4.0 与 Dreamweaver CS6 进行 网 站 开发 的 思路 和 开发 流程 。 
为 了 让 读者 快速 掌握 ASPNET 4.0 与 Dreamweaver CS6 动态 网 站 开发 技术 ， 本 书 在 内 
容 上 进行 了 精心 组 织 。 讲 解 具 体 知识 的 语言 通俗 易 懂 ， 让 读者 在 实际 操作 中 轻松 掌握 软件 
的 开发 技术 。 在 具体 介绍 模块 功能 的 时 候 ， 提 供 了 详细 的 图 例 ， 并 对 程序 代码 提供 了 详细 
的 标注 ， 使 初学 者 可 以 迅速 地 掌握 整个 模块 的 设计 原理 和 实现 方法 。 

全 书 采用 了 以 实例 进行 说 明 的 方式 ， 可 操作 性 强 ， 注 重 理论 与 实践 的 密切 结合 ， 通 俗 
易 懂 ， 步 又 清晰 ， 说 明 详细 ， 力 求 以 全 面 的 知识 性 及 丰富 的 实例 来 指导 读者 掌握 动态 网 站 
开发 技术 ， 适 合作 为 大 专 院 校 计算 机 专业 师 生 的 教材 或 参考 书 ， 也 可 供 动态 网 站 开发 人 员 
及 对 ASPNET4.0 技术 和 Dreamweaver CS6 软件 感 兴趣 的 人 员 学 习 人 参考。 
本 书 由 三 维 书屋 工作 室 总 策划 ， 主 要 由 左 爱 军 和 胡 仁 喜 博 士 编 写 ， 参 与 编写 的 还 有 杨 
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”互联 网 诞生 于 20 世纪 后 期 ， 它 以 计算 机 网 络 技术 为 平台 ， 以 现代 电子 : 
， 信 息 技术 为 先导 ,成 为 近年 来 迅速 崛起 和 飞速 发 展 的 一 门 重 要 科学 。 它 为 传 | 
， 统 计算 机 应 用 带 来 了 深刻 的 变革 ， 使 计算 机 获得 信息 资源 的 能 力 进一步 扩 ; 
， 大， 人们 接受 信息 的 方式 进一步 多 样 化 、 形 象 化 。 随 着 WWW 技术 的 日 益 ; 
成熟， 电子 商务 的 日 至 完善 ， 网 页 制作 技术 逐渐 普及 与 应 用 ， 人 们 的 工作 、; 
， 生 活 和 交流 方式 发 生 了 彻底 的 改变 。 互 联网 已 经 成 为 第 四 媒体 , 越 来 越 多 的 ; 
公司、 机构 和 个 人 都 拥有 自己 的 网 页 或 网 站 。 i 
: 本 章 主要 讲解 网 页 设计 制作 的 基本 方式 , 编辑 网 页 的 常用 工具 和 动态 网 ; 
“页 的 支持 技术 。 / 


© 制作 网 页 的 基本 方式 
© 基本 的 网 页 元 素 
& HTML 基 础 


TO 3e3deu) 


ASP.NET 4.0 5 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


1.1 制作 网 页 的 基本 方式 


网 页 设计 制作 的 基本 方式 包括 : 手工 直接 编码 、 利 用 可 视 化 工具 、 手 工 编码 和 可 视 
化 工具 结合 3 种 。 


LL. 1.1 手工 编码 方式 


网 页 是 由 HTML 超 文本 标记 语言 编码 的 文本 文档 ， 设 计 制 作 网 页 的 过 程 就 是 生成 
HTML 代码 的 过 程 。 在 WWW 发 展 的 初期 ， 人 们 制作 网 页 是 通过 直接 编写 HTML 代码 
来 实现 的 。 比 如 在 网 页 上 显示 如 图 1-1 所 示 的 表格 , 就 应 该 在 网 页 文档 中 编写 如 下 代码 : 


«table width="457" border="2" cellspacing="0" cellpadding="0"> 


y 


SETS 
«th width="143" height="45" align="center" valign="middle" 


scope="col"><span class="STYLE1"> 产 品名 称 </span></th> 


< En wh -ue I align="center" valign="middle" scope="col"><span 


class="STYLE1"> 型 号 </span></th> 


«th width="188" align="center" valign="middle" scope="col"><span 


class="STYLE1"> 报 价 </ span></th> 

«/tr» 

SECS 
«td height="43" align="left" valign="middle ">=Æ</td> 
<td align="center" valign="middle">SGH-E908</td> 
<td align="center" valign="middle">2599</td> 

«/tr» 

A 


«td height="43" align="left" valign="middle"> 三 星 </td> 


<td align="center" valign-"middle"»SGH-i718«/td» 
<td align="center" valign="middle">4950</td> 
</tr> 


<n 


<td height="43" align="left" valign="middle">i#EW</td> 
<td align="center" valign="middle">N73</td> 
<td align="center" valign="middle">3399</td> 

</tr> 


过 长丰 之 


«td height="43" align="left" valign middle ia </td> 


<td align="center" valign="middle">N95</td> 


<td align="center" valign="middle">8888</td> 


</tr> 


</table> 


对 大 多 数 网 页 设计 人 员 来 说 ， 采 ) 


富 的 网 页 效果 。 


图 1-1 编码 显示 效果 


手工 编码 制作 网 页 对 网 页 设计 人 员 的 要 求 较 高 , 编码 效率 低 ， 调试 过 程 复杂 ， 因 此 ， 


(1.1.2 可 视 化 工具 方式 


随 着 网 页 制作 技术 的 不 断 发 展 ， 出 ] 


Ji LH. A) 


Px T. 


应 的 网 页 代码 。 如 要 在 网 页 上 显示 一 幅 图 
考虑 编码 的 规则 和 语法 。 
可 视 化 工 


利 


在 可 视 化 环 ] 


但 利用 可 视 化 工 


T 


LL. 1.3. 编码 和 可 视 化 工 


编码 和 可 视 化 工具 结合 是 一 种 比较 成 熟 的 网 页 制作 方式 
元 素 通过 可 视 化工 


这 种 方式 比较 


党 下 编辑 


产品 名 称 型 号 报价 
三 SGH-E908 2599 
三 星 SGH-i718 4950 
诺基亚 NT3 3399 
诺基亚 N95 8888 


困难 。 但 手工 编码 可 以 灵活 地 制作 出 丰 


纲 了 诸如 FrontPage. Dreamweaver 等 可 视 化 的 网 
RIVERA cz, FA 


编辑 工具 自动 生成 对 


像 ， 就 可 以 直接 在 工作 区 中 插入 图 像 ， 而 无 需 


在 制作 一 些 特殊 网 页 时 ， 效 果 可 能 有 


具 结 


内 从 一 


中 编辑 网 页 ， 操 作 简 单 直观 ， 调 试 方便 ， 是 大 众 化 的 网 页 编辑 方式 。 


合 方式 


定 的 偏差 和 局 限 性 。 


o RRITEN: 一般 的 网 页 
编辑 制作 ， 一 些 特殊 的 网 页 效果 则 通过 编辑 代码 生成 。 这 种 方式 效 


率 高 、 调 试 方便 ， 而 且 可 以 实现 丰富 的 网 页 效果 ,但 要 求 设计 人 员 既 要 熟悉 HTML 语言 


又 能 运用 可 视 化 工具 
除了 上 面 3 利 
己 的 网 页 。 在 网 页 编辑 制作 过 程 中 


IT 


基本 的 网 页 设计 


吓 作 方式 外 ， 还 可 以 通过 修改 已 有 的 网 页 代码 生成 自 


LAOK 


M 


泥 于 某 种 固定 的 模式 。 


] 何 种 方式 要 根据 


号 体 情况 而 定 ， 没 有 必要 拘 
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ASP.NET 4.0 5 Dreamweaver CS6 


经 暴 网 


一 工 一 、 人 


1.2 ”基本 的 网 页 元 素 


网 站 开发 从 入 门 到 精通 


在 初次 设计 网 页 之 前 ， 首 先 应 该 认识 一 下 构成 网 页 的 基本 元 素 ， 只 有 这 样 才 能 在 设 
计时 得 心 应 手 地 根据 需要 合理 地 组 织 和 安排 网 页 内 容 。 

网 页 中 常见 的 元 素 有 : 文本 、 图 像 、 超 级 链接 、 表 格 、 动 画 、 音 乐 和 交互 式 表 单 等 。 
下 面 简要 介绍 这 些 常 见 元 素 在 网 页 中 的 作用 。 

1. 文本 

文本 是 传播 信息 最 重要 的 载体 与 交流 工具 ， 网 页 中 的 信息 也 以 文本 为 主 。 
TENE e eR 用 户 可 以 在 网 页 中 通过 赋予 文本 各 种 属性 ， 如 
字体 、 字 号 、 颜 色 、 底 纹 等 ， 突 出 显示 文本 的 内 容 ， 此 外 ， 还 可 以 设计 各 种 各 样 的 文字 
列表 ， 以 清晰 表达 一 系列 项 目 。 

2. 图像 

图 像 可 以 装饰 网 页 、 提 供 信 息 ， 与 文本 相 比 ， 可 以 更 快 地 吸引 访问 者 的 注意 力 。 在 
网 页 中 可 以 使 用 GIFE、JPEG、PNG 三 种 格式 的 图 像 。 动 画 可 以 更 直接 、 形 象 地 表达 网 页 
设计 者 的 意愿 。 

3. 声音 

PEIESORIERIRUSE - 个 重要 组 成 部 分 。 用 于 网 络 声音 文件 的 格式 很 多 ， 如 MIDI. 
WAV, MP3 和 AIF 等 , 不 同 浏览 器 对 于 声音 文件 的 处 理 方式 也 不 同 ， 因 此 使 用 时 需要 加 
以 区 别 。 视频 文件 可 以 使 网 页 变 得 动感 精彩 ， 用 于 网 络 视频 文件 的 格式 也 非常 丰富 ， 
^* Wf? FLV. MPEG. AVI 等 。 

4. AE 

超级 链接 可 以 说 是 互联 网 的 枢纽 、 灵 魂 ， 它 将 一 个 个 独立 的 页 面 联 系 起 来 。 它 是 从 
一 个 网 页 指向 男 一 个 目的 端的 链接 ， 目 的 端 通常 是 另 一 个 网 页 ， 也 可 以 是 一 幅 图 片 、 一 
个 电子 邮件 地 址 、 一 个 文件 、 一 个 程序 或 者 是 本 网 页 中 的 其 他 位 置 。 

5. 表格 

表格 是 网 页 中 常用 的 页 面 布局 工具 ， 可 以 精确 控制 各 种 网 页 元 素 的 位 置 。 

6. 表单 

网 页 中 的 表单 常用 于 接受 用 户 在 浏览 器 端的 输入 ， 并 将 输入 信息 发 送 到 用 户 设置 的 
目 标 端 然后 H 标 端 反 馈 相 应 的 信息 已， 从 而 使 浏 览 者 和 Web 站 点 或 网 站 管理 者 建立 交互 
关系 。 

7. 导航 栏 


导航 栏 顾名思义 ， 其 作 


] 就 是 引导 访问 者 游历 站 点 ， 使 访问 者 可 以 便 


捷 地 转向 站 点 


的 其 他 页 面 。 
除了 以 上 几 种 元 素 外 , 网 页 中 还 有 


5$, ENTRUDI, M ZEM 
Er £ , 


通过 上 


事实 上 导航 栏 就 是 一 组 超级 链接 。 
些 其 他 的 常 ) 


读者 可 能 想 知 道 ， 


作 网 页 的 软件 很 多 ， 


Director、FrontPage 等 


。 本 书 采 用 


上 娱乐 、 电 子 商 务 等 
用 什么 工 
常用 的 有 具有 “梦幻 组 合 ” 之 称 的 “网 页 三 剑 
Dreamweaver CS6 作为 网 页 编辑 工具 。 


元 素 , 如 按钮 、Java 


特效 、ActiveX 


(来 制作 、 


13 ”网 页 开发 技术 的 发 展 


构 自 己 的 个 人 网 


的 角度 来 看 ， 无 论 是 动态 网 页 还 是 静态 网 页 ， 都 可 以 展示 基本 的 文字 和 图 


当今 社会 信息 技术 飞速 发 展 ， 人 们 越 来 越 依靠 现代 网 
站 ， 组 建 企业 的 门户 网 站 ， 进 行 网 上 营销 、 


交流 和 宣传 。 


四 也 有 着 不 可 忽视 的 作用 。 
编辑 这 些 元 素 呢 ? 
客 ” PhotoImpact, 


络 技术 来 实现 各 种 价值 ， 


H gii 


= 


如 架 
从 网 站 浏览 


MTS Ree 维护 的 角度 来 看 就 有 很 


LL. 3. 1 


通常 我 们 看 到 的 网 页 ， 都 是 以 .htm、.html、 
。 在 网 站 设计 中 ， 纯 粹 HTML 格 式 的 网 页 通 


不 含有 a ” 


绍 网 页 开发 技术 的 发 展 。 


静态 网 页 


过 程 如 下 : 


(1) 客户 通过 Web 服务 器 的 URL 申请 页 
(2) 服务 


器 向 客户 送 回 被 申请 


(3) 在 客户 端 下 载 并 在 浏览 器 上 显示 页 面 。 


静态 网 页 只 要 不 改变 设计 ， 网 页 的 内 容 就 不 会 变化 。Web 服务 器 对 青 


的 页 面 。 


HI 


大 的 差别 。 


.Shtml、 
党 被 称 为 静态 网 


片 信息 ， 但 从 


.Xml 等 为 后 缀 的 文件 ， 其 网 址 中 
页 


Mo 


IT 
o 


(4) Wri 


整个 过 程 比 较 简单 ， 到 客户 端 下 载 完 页 面 
态 网 页 的 网 站 设计 也 比较 简单 。 这 种 设计 对 于 早期 的 网 站 来 说 已 足够 。 
目的 大 多 是 一 
若 网 站 维护 者 要 更 新 网 页 的 内 容 ， 


isk 


能 在 网 上 在 线 


开 客 户 与 服务 器 之 间 的 联系 。 


时 为 止 ， 整 个 过 程 就 结束 了 。 


些 科学 工作 者 ， 他 们 关注 


的 重点 


争 态 网 页 的 访问 


用 于 发 布 静 


只 是 有 关 科 学 技术 的 内 容 。 


修改 ， 必 须 在 电脑 上 重新 伟 


WE 


Z] 


就 必须 手工 更 新 所 有 的 HTML 文档 。 
片 、 编 辑 网 页 ， 修 改 后 通过 FTP 上 传 到 网 


站 上 ， 比 较 麻烦 ， 对 网 站 维护 人 员 的 要 求 高 。 为 了 个 断 更 新 网 页 内 容 ， 就 必须 不 断 地 重 


大 的 。 但 


， 但 这 些 动态 


复制 作 HTML 文档 ， 随 着 网 站 
巨 


内 容 和 信息 量 的 日 益 扩 增 ， 
静态 网 站 容易 被 搜索 引擎 搜索 ， 一 般 适 合 企业 使 用 。 
在 静态 网 页 上 也 可 以 出 现 各 种 动态 的 效果 ， 如 GIF 格式 


效果 只 是 视觉 上 的 ， 与 下 面 } 


JA HER UAM 


的 动态 网 页 是 不 同 的 


ies 


因为 早期 使 用 网 


静态 网 页 不 


网 页 维护 的 工作 量 无 疑 是 非常 


的 动画 、FLASH、 深 动 字 莫 
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LL. 3.2 


随 着 Web 技 术 M] 


网 络 中 来 ， 并 提出 了 许多 新 的 要 求 。 例 如 ， 与 Web 服 务 器 或 网 站 管理 


经 典 网 站 开 


动态 网 页 发 展 的 几 个 阶段 
] 领 域 的 扩展 和 电子 商务 时 代 的 到 来 , 各 种 不 同类 型 的 | 


发 从 入 门 到 精通 


] 户 加 入 到 


者 进行 实时 交互 ， 


且 交 互 过 程 中 能 够 保障 ) 


j 户 的 信息 安全 。 


的 需求 。 于 是 能 够 提供 后 台数 据 库 的 管理 


很 快 得 到 普及 应 用 。 


这 种 输出 内 容 随 程序 执行 的 结果 不 同 而 有 
态 网 页 URL 的 后 级 不 是 .htm、.html、.shtml、 
.perl、.cgi、.aspx 等 形式 为 后 级 ， 并 且 在 动态 网 页 网 址 中 有 一 个 标志 性 的 符号 一 一 


此 时 各 种 静态 发 布 信息 的 网 站 已 不 能 满足 ) 
和 控制 等 服务 的 动态 网 站 技术 应 运 而 生 ， 并 


所 不 同 的 网 页 被 称 之 为 “动态 网 页 ”。 
xml 等 常见 形式 ， 而 是 以 .asp、.jsp、.php、 


JF 


5 


o» 
4 , 


例如 : http:/www.pagehome.cn/ip/index.aspx?id=1。 访 问 动态 网 页 的 过 程 如 下 : 


C1) 客户 通过 Web 服务 器 的 URL 申请 


个 网 页 。 


(2) 服务 器 接收 请 求 ， 


(3) 将 代码 的 处 理 


并 处 理 网 页 上 的 代码 。 


(4) 在 客户 端 下 载 并 在 浏览 器 上 显示 网 页 。 
(5) 服务 器 断 开 与 客户 的 联系 并 转向 其 他 客户 ， 以 便 提 供 新 的 服务 。 


与 静态 网 页 相 比 , 动 


结果 转换 成 HTML 代码 后 向 客户 送出 。 


态 网 页 以 数据 库 技术 为 基础 ， 在 访问 页 


的 过 程 。 因 此 ， 动 态 网 页 的 页 


成 的 页 面 并 不 是 独立 存在 于 服务 器 上 的 网 页 文件 。) 
了 不 同 的 技术 ， 大 体 上 可 以 划分 为 3 个 阶段 。 

(1)CGI 阶 段 .早期 的 动态 网 站 开发 技术 使 ) 
Gateway Interface 的 缩写 ， 
Pascal. 、Java 或 其 他 语言 编写 与 接口 术 


史 时 期 采用 


外 部 应 


面 时 多 了 一 个 处 理 代 码 


面 自动 生成 ， 无 须 手工 维护 和 更 
了 网 站 维护 的 工作 量 ; 不同 的 时 间 、 不 同 的 人 访问 同一 网 址 时 会 产生 不 同 的 页 


新 HTML CRY, KAKAR 
I, HÆ 


什么 方式 来 处 理 代码 , 在 不 同 的 历 


的 是 CGI-BIN 接 口 .CGI 是 英文 Common 


代表 服务 器 端的 一 种 通用 接口 。 开 


这 个 接口 去 启动 外 部 应 | 


程序 完成 各 类 计算 、 


果 返 回 Web 服 务 器 ， 再 返 


后 来 出 现 了 “ISAPI”() 


浏览 器 ) 技术， 其 功能 与 


JE DLL), WRA Web 服务 器 的 地 址 空间 运行 ， 并且 
了 运行 效率 。 但 不 论 是 CGI 还 是 ISAPI 或 NSAPI, # 
程序 并 不 是 一 件 容易 的 事情 。 从 开发 人 员 的 角度 讲 ， 这 种 开发 方式 并 没有 带 来 开 


部 应 
发 上 的 方便 


[ERX EAF o 
] Internet Explorer 浏览 器 ) 和 
面 有 些 改 进 。 儿 


CGI 相同 ， 但 技术 方 


这 种 开发 技术 存在 着 严重 的 扩展 性 问题 


增 一 个 进程 。 如 果 多 个 ) 
HAW, HAHH. 


日 关 的 单独 的 程序 和 基于 Web 的 外 部 应 ) 
j 程 序 运 行 在 独立 的 地 址 空间 中 。 当 服务 器 接 到 客户 更 新 数据 的 要 求 以 后 ， 利 用 
处 理 或 访问 数据 库 的 工作 ， 处 理 完 后 将 结 


需要 编写 外 部 应 用 


每 一 个 新 的 CGI 程序 要 求 在 服务 器 上 新 
] 户 并 发 地 访问 该 程序 ， 这 些 进程 将 耗 尽 该 Web 服 务 器 所 有 的 可 


BAR | 


JC. C++, Perl. 
程序 ,这些 


“NSAPI” (HHF Netscape 
部 应 用 程序 改 用 动态 链接 


线程 代替 进程 ， 因 而 显著 地 提高 


程序 ， 而 编写 儿 


E 


(2) 脚本 语言 阶段 。 这 个 阶段 出 现 了 许多 杰出 的 脚本 语言 ， 如 ASP. PHP. BONG 


Perl 和 JSP 等 。 脚 本 语言 的 出 现 大 大 简化 了 动态 网 站 开发 的 难度 。 


该 


HTML 标签 ， 可 以 直接 存 取 数 据 库 及 使 ) 


ee 
E 


富有 灵活 性 。 但 该 技术 基本 上 是 局 限 了 


为 克服 CGI 扩展 性 方 


ALAN Main, PARKA A] FEM T Active Server Pages (ASP) 技术 ， 


技术 利用 插件 和 API 简 化 了 Web 应 


程序 的 


于 发 。ASP 与 CGI 相 比 ， 其 优点 是 可 以 包含 


] 无 限 扩充 的 ActiveX 控 件 ， 因 此 在 程序 编制 上 更 
微软 的 操作 系统 平台 之 上 ， 主 要 工作 环境 是 微软 


的 IS 应 用 程序 结构 ， 所 以 ASP 技 术 不 能 很 容易 地 实现 跨 平台 的 Web 服 务 器 程序 开发 。 
JSP (Java Server Pages 技 术 ) 是 Sun Microsystems Inc. 在 Web 服 务 器 、 应 用 服务 器 、 


A 
程 


的 


应 
试 


入 
平 
性 


易 系统 以 及 开发 工具 供应 商 间 广泛 支持 与 合作 下 ， 整 合并 平衡 了 已 经 存在 的 对 Java 编 


环境 进行 支持 的 技术 和 工具 后 产生 了 一 种 新 的 、 开 发 基于 Web 应 


程序 的 方法 , 与 ASP 


程序 结构 非常 相似 。 它 的 主要 特点 是 在 传统 的 HTML 网 页 文件 中 加 入 Java 程 序 片段 和 


用 程序 服务 器 上 运行 ， 分 离 了 应 | 
， 简 化 了 开发 基于 Web 的 交互 式 应 ) 


用 各 种 各 样 的 JSP 标 志 ， 构 成 JSP 网 页 。Web 服 务 器 在 接收 客户 的 访问 要 求 时 ， 首 先 执 
了 其 中 的 程序 片段 ， 并 将 执行 结果 以 HTML 格 式 返 回 客 户 。 这 种 技术 能 够 在 任何 Web 或 
程序 的 逻辑 和 页 面 显示 ， 能 够 进行 快速 的 开发 和 测 
程序 的 过 程 。 


PHP 动 态 网 站 开发 技术 ， 即 Hypertext Preprocessor (jE XA TAE ZERO, th AE — PE 
HTML 文 档 的 服务 器 端 脚 本 语言 。 PHP 在 大 多 数 Unix 平 台 、GUN/Linux 和 微软 Windows 


强 ， 可 以 进行 面向 对 象 编程 等 。 


台 上 均 可 以 运行 。 PHP 安 装 方便 ， 学 习 过 程 简单 ， 数 据 库 连接 方便 ， 兼容 性 强 ， 扩 展 
但 PHP 是 一 种 解释 型 语言 ， 不 支持 多 线程 结构 ， 支 持 


平台 和 连接 的 数据 库 都 有 限 ， 特 别 是 在 支持 的 标准 方面 存在 先天 不 足 ， 对 于 某 些 电子 商 


务 


由 
系 


应 用 来 说 ，PHP 是 不 适合 的 。 


G) 组 件 技术 阶段 。ASPNET 和 Java (J2EE) 技术 是 这 个 阶段 的 代表 。 这 是 一 个 


类 和 对 象 〈 组 件 ) 组 成 的 完全 
统 具有 高 效 、 高 可 靠 、 高 可 扩展 的 特点 。 


需要 补充 说 明 的 是 ， 动 态 网 页 URL 中 的 “?” 对 搜索 引擎 检索 存在 


用 向 对 象 的 系统 ， 采 | 


| 编译 方法 和 事件 驱动 方式 运行 。 


定 的 问题 ， 搜 索 


引擎 一 般 不 可 能 从 一 个 网 站 的 数据 库 中 访问 全 部 网 页 ， 或 者 出 于 技术 方面 的 考虑 ， 搜 索 


引擎 不 去 抓 取 网 址 中 “?” 后 面 的 内 容 ， 因 此 采 ) 


动态 网 页 的 网 站 在 进行 搜索 引擎 推广 时 


需要 做 一 定 的 技术 处 理 才能 适应 搜索 引擎 的 要 求 。 


LL. 3.3 


i AU AR AS s CUR P T EAT T SCIRE AC UICE SY n LII OL. IE SUAS A XUDUS E Tir? 
网 页 制作 工具 是 不 够 的 ， 还 要 结合 某 种 支持 技术 来 开发 服务 器 端的 脚本 应 | 


的 
态 


gay 


ut 
A 
ESS 
SA 


动态 网 页 的 支持 技术 


BG Web 技术 的 发 展 , 动态 网 页 已 经 成 为 网 页 制作 的 流行 趋势 。 动 态 网 页 是 指 浏览 


网 页 常用 的 支持 技术 有 以 下 几 种 : 


程序 。 动 


(1) ASP 技术 。ASP 是 一 套 微 软 开发 的 服务 器 端 脚本 环境 ， 内 含 于 IS 3.0 和 4.0 
中 。 按 照 微 软 公司 自己 的 定义 :“ASP 是 一 种 服务 器 端的 脚本 技术 ， 用 来 创建 动态 的 、 


互 的 网 站 。”ASP 将 HTML 标记 以 及 Script 程序 代码 组 织 在 一 个 网 页 文件 中 ， 建 立 动 


、 交 互 且 高 效 的 Web 服务 器 应 | 


程序 , 代码 以 VBScript 或 JavaScript 脚本 语言 为 基础 。 
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当 客 户 访问 ASP 网 页 时 ,服务 器 (PWS 或 IS) 将 启动 ASP 文件 的 解释 程序 在 服务 器 站 
HiT, AMMAKE HM HTML 中 的 脚本 程序 。 程 序 执行 完毕 后 ， 服 务 器 仅 将 执行 的 结 


果 返 回 给 客户 浏览 器 ， 减 轻 了 客户 端 浏览 器 的 负担 ， 大 大 提高 了 交互 的 速度 。ASP 应 用 
程序 可 以 手工 编码 制作 ， 也 可 以 通过 Dreamweaver 等 可 视 化 工具 创作 生成 。 

(2) PHP RR. PHP 是 一 种 跨 平 台 的 服务 器 端的 代 入 式 脚 本 语言 , 它 大 量 地 借用 C 
Java 和 Perl 语言 的 语法 ， 并 耦合 PHP 自己 的 特性 ， 使 Web 开发 者 能 够 快速 地 写 出 动态 
生成 页 面 。 自 从 诞生 以 来 ， 以 其 简单 的 语法 、 强 大 的 功能 迅速 得 到 了 广泛 的 应 用 。PHP 
除了 能 够 操作 页 面 ， 还 能 发 送 HTTP 的 标题 。 它 不 需要 特殊 的 开发 环境 和 IDE, 34 Al 
前 绝 大 多 数 数 据 库 。 它 不 仅 文 持 多 种 数据 库 ， 还 文 持 多 种 通信 协议 。 另 外 PHP 还 具有 极 
强 的 兼容 性 。PHP 是 完全 免费 的 ， 可 以 从 PHP 官方 站 点 自由 下 载 ， 而 且 用 户 可 以 不 受 限 
制 地 获得 源码 ， 甚 至 可 以 从 中 加 进 自己 需要 的 特色 。 
(3) JSP 技术 。JSP Sun 公司 推出 的 站 点 开发 语言 ， 完 全 解决 了 此 前 ASP. PHP 
的 一 个 通病 一 一 脚本 级 执行 ,可 以 在 Serverlet 和 JavaBean 的 支持 下 ,完成 功能 强大 的 站 
点 程序 。 

以 上 三 种 技术 都 提供 在 HTML 代码 中 混合 某 种 程序 代码 、 由 语言 引擎 解释 执行 程序 
代码 的 能 力 。 善 通 的 HTML 页 面具 依赖 于 Web 服务 器 ， 而 ASP PHP. JSP 页 面 需要 附 
加 的 语言 引擎 分 析 和 执行 程序 代码 。 程 序 代码 的 执行 结果 被 重新 钳 入 到 HTML 代码 中 ， 
然后 一 起 发 送 给 浏览 器 。ASP 、PHP、JSP 三 者 都 是 面向 Web 服务 器 的 技术 ， 客 户 端 浏 
览 器 不 需要 任何 附加 的 软件 支持 。 

(4) ASP.NET 技术 。 进 入 21 世纪 以 来 ， 微 软 公司 鲜明 地 提出 了 .NET 的 发 展 战略 ， 
外 定 了 创建 下 一 代 Internet 平台 的 目标 。 下 一 代 Internet 的 主要 特征 之 一 就 是 ， 它 将 无 处 
不 在 ， 世 界 上 任何 一 台 智 能 数字 设备 都 有 可 能 通过 宽带 连接 到 因特网 上 。 在 这 些 思 想 的 
指导 之 下 ， 微 软 于 2000 年 推出 了 基于 .NET 框架 的 ASPNET 1.0 版 本 ，2002 年 推出 了 
ASP.NET 1.1 版 本 ，2005 年 年 底 又 推出 了 ASP.NET 2.0 版 本 。2007 年 11 A, Microsoft 
Af ASBNET3.5, 2010 fF 4 Hi f ASP.NET 4. 

ASP.NET 是 在 ASP 的 基础 上 发 展 起 来 的 ， 但 它 不 只 是 ASP 的 升级 ， 而 是 重新 构筑 
的 一 个 全 新 的 系统 。ASPNET 是 建立 在 .NET 框架 平台 上 的 完全 面向 对 象 的 系统 ， 
ASP.NET 与 .NET 框架 平台 紧密 结合 是 ASPNET 的 最 大 特点 。 有 了 .NET 框架 的 支持 , 一 
些 单 靠 应 用 程序 设计 很 难 解决 的 问题 ， 都 可 以 迎刃而解 。 

本 书 动态 网 页 的 支持 技术 采用 ASPNET 4。 有 关 ASPNET 4 的 具体 介绍 见 本 书 第 4 
E 


山 


zu 


1.4 HTML 基础 


网 站 分 很 多 种 ， 有 的 是 功能 性 的 网 站 ， 有 的 是 门户 式 的 网 站 ; 也 有 的 是 论坛 、 聊 天 
室 等 。 它 大 致 分 为 3 种 ， 即 静态 、 动 态 、 综 合 。 无 论 是 哪 种 网 站 都 有 一 个 基本 的 元 素 ， 
就 是 html 页 面 。 虽 然 现在 可 以 利用 “所 见 即 所 得 ” 且 操 作 方 便 的 网 页 制作 工具 ， 如 


Dreamweaver. FrontPage 等 可 视 化 工具 直观 地 设计 制作 网 页 ， 不 需要 再 去 编写 繁琐 的 网 


页 代码 。 但 对 HTML 语言 有 一 个 初步 的 了 解 ， 能 够 帮助 我 们 理解 网 页 的 制作 原理 和 运行 


机 制 ， 分 析 借 鉴 其 他 网 页 的 元 素 ， 以 及 创建 在 可 视 化 环境 下 难以 实现 的 效果 。 

HTML 是 Hypertext Markup Language 的 首 字母 缩写 ,直译 为 超 文 本 标记 语言 。 它 不 
是 一 种 程序 语言 ， 而 是 一 种 描述 文档 结构 的 标记 语言 ， 它 与 操作 系统 平台 的 选择 无 关 ， 
只 要 有 浏览 器 就 可 以 运行 HTML 文档 。HTML 语言 使 用 了 一 些 约定 的 标记 ， 对 WWW 
上 的 各 种 信息 进行 标记 ， 浏 览 器 会 自动 根据 这 些 标 记 ， 在 屏幕 上 显示 出 相应 的 内 容 ， 而 
标记 符号 不 会 在 屏幕 上 显示 出 来 。 自从 1990 年 它 首 次 用 于 网 页 制作 后 , 几乎 所 有 的 网 页 
都 是 由 HTML 语言 或 以 其 他 语言 嵌入 在 HTML 语言 中 编写 的 。 
利用 HTML 编写 的 网 页 是 解释 型 的 ,也 就 是 说 ,网 页 的 效果 是 在 用 浏览 器 打开 网 页 
时 动态 生成 的 ， 而 不 是 事先 存储 于 网 页 中 的 。 当 用 浏览 器 打开 网 页 时 ， 浏 览 器 读 取 网 页 
中 的 HTML 代码 , 分 析 其 语法 结构 , 然后 根据 解释 的 结果 显示 网 页 内 容 。 正 是 因为 如 此 ， 
网 页 显示 的 速度 同 网 页 代码 的 质量 有 很 大 的 关系 , 保持 精简 和 高 效 的 HTML 源 代码 是 非 
常 重要 的 。 在 这 里 需要 提请 读者 注意 的 是 , 不 同 的 浏览 器 对 HTML 文件 的 解释 可 能 不 太 
一 样 。 


— 


LL. 4.1. 标记 和 属性 


HTML 是 开放 的 世界 性 的 标准 。HTML 的 4.0 版 本 可 以 在 目前 正在 使 用 的 百 分 之 九 
十 的 浏览 器 上 显示 。 最 初 HTML 只 有 很 少 的 功能 ,但 发 展 非常 迅速 ， 我 们 能 够 在 短 短 的 
H 


几 个 小 时 的 时 间 里 掌握 HTML 的 核心 命令 集 。 = 
顾名思义 ， 超 文本 标记 语言 的 语言 构成 主要 是 通过 各 种 标记 (Tag) 表示 和 排列 各 种 

对 象 。 通常 标记 由 符号 “<” 和 “>” 及 其 中 所 包容 的 标记 元 素 组 成 ， 且 标记 不 区 分 大 小 网 

写 。 例 如 ， 如 果 希 望 在 浏览 器 中 显示 一 段 加 粗 的 文本 ， 可 以 采用 标记 <b> 和 </b>， 例 如 : A 
<b> MA </b> Ye: 
在 用 浏览 器 显示 时 ， 标 记 <b> 和 </b> 不 会 被 显示 ， 浏 览 器 在 文档 中 发 现 了 这 对 标记 ， = 

就 将 其 中 包容 的 文字 以 粗 体形 式 显示 。 出 


标记 包含 一 个 主要 的 命令 和 数量 不 限 的 相关 值 ， 称 为 属性 。 每 个 属性 包含 一 个 名 称 
和 一 个 取 值 。 标 记 和 属性 ， 以 及 属性 和 后 继 的 属性 之 间 应 该 使 用 空白 分 隔 ， 空 白 包 括 衬 
格 ， 水 平 制 表 符 和 回 车 /换行 字符 。HTML 使 用 引号 分 隔 值 ， 例 如 : 
«td height="43" align="left" valign-"middle"» < 
再 次 提醒 读者 ， 不 是 所 有 浏览 器 都 要 求 属 性 值 使 用 引号 分 隔 。 虽 然 不 要 求 ， 仍 然 要 
养 成 每 次 都 使 用 引号 的 习惯 ， 如 果 缺 少 引 号 ， 在 .NET 编程 时 可 能 会 遇 到 问题 。 
一 般 来 说 ，HTML 的 语法 有 三 种 表达 方式 ， 如 下 所 示 : 
© “标记 > 对 象 </ 标 记 >。 
e < 标记 属性 1= 参 数 1 属性 2= 参 数 2> 对 象 </ 标 记 >。 
@ < 标记 >。 


第 一 种 表达 方式 显示 的 是 封闭 类 型 标记 的 使 用 形式 。 大 多 数 标 记 是 封闭 类 型 的 ， 也 
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就 是 说 ， 有 起 始 标记 和 结束 标记 ， 且 它们 成 对 出 现 。 结 束 标记 前 
个 示例 : 
<i> 这 段 文字 是 斜体 文字 </i> 《浏览 器 以 斜体 格式 显示 标记 间 的 文本 ) 
如 果 一 个 应 该 封闭 的 标记 没有 被 封闭 ， 则 会 产生 意料 不 到 的 错误 ， 随 浏览 器 不 同 ， 


27 Bh 


LM 


HE 


py 


J 


网 站 开发 从 入 门 到 精通 
ARAR , 下 面 是 一 


可 能 出 错 的 结果 也 不 同 。 例 如 ， 坊 记 以 </i> 标 记 封闭 对 文字 格式 的 设置 ， 可 能 后 面 所 有 


的 文字 都 会 以 


第 二 种 表达 方式 显示 的 是 封闭 类 型 标记 的 扩展 形式 。 利 用 
某 方面 的 内 容 ， 而 参数 则 是 设置 的 结果 。 例 如 ， 在 如 下 的 语句 中 ， 设 置 


斜体 的 格式 出 现 。 


bgcolor 属性 和 align 属性 。 


«td bgcolor="#99CC99" align="right"></td> 


第 三 种 语 
有 结束 标记 。 在 HTML 语言 


例如 ， 和 希望 使 
要 换行 的 地 方 


这 是 一 段 完 


除了 上 面 三 种 形式 的 组 合 之 乡 
一 行文 本 同时 设置 粗 体 和 斜体 格式 ， 则 可 以 采用 下 
<b><i> 这 是 一 段 既 是 粗 体 又 是 斜体 的 文本 <fi></b> 


例如 ， 和 希望 将 


法 示例 显示 了 使 
, JEH BIS? E 


添加 标记 <br>， 如 : 
整 的 段落 <br> 中 间 被 换行 处 理 


Se 


遇 性 可 以 进一步 设置 对 象 


了 标记 <td> 的 


] 非 封闭 类 型 标记 的 形式 。 所 谓 非 封闭 类 型 标记 ， 是 指 没 
少 ,但 的 确 存在 ,最 常用 的 是 换行 标记 <br>。 


一 行文 字 中 间 换 行 ， 但 是 仍然 同上 面 的 文字 属于 一 个 段落 ， 则 可 以 在 文字 


i= 


by bic ZA) DA BARE, FB EY SARIS 


PRERJE, Mb E ICD ree AA IG. H 


生 混乱 ， 则 可 


LL. 4.2 


能 会 出 现 不 可 预料 的 结 


HTML 文档 结构 


HI 的 语句 : 


LR i EI KEME AZ 


HTML 文档 由 三 大 元 素 构成 : HTML 7625. HEAD 元 素 和 BODY 元 素 。 每 个 元 素 
应 的 标记 和 属性 。HTML 元 素 是 最 外 层 的 元 素 ; HEAD 元 素 中 包含 对 文档 


又 包含 各 自 相 


绍 如 下 : 

<html>... 
都 应 该 在 这 两 
结束 。 


<head>...</head> 标 记 : 一 般 位 于 文档 的 头 部 ， 用 


基本 信息 的 描述 ，BODY 元 素 是 文档 的 主体 部 分 ， 包 含 对 网 页 元 素描 述 的 标记 。 


HAT 


</html> Ri: HTML 文档 的 开始 和 结束 标记 ，HTML 文档 中 所 有 的 内 容 


个 标记 之 间 ， 一 个 HTML 文档 非 注 释 代 码 总 是 以 <html> 姑 


不 会 在 网 页 上 直 


<base> #ll<meta>. 


记 定 义 了 文档 的 基础 URL 地 址 ， 在 文档 中 所 有 的 相对 地 址 形式 的 URL 都 


<base> fj 


接 显 示 ， 而 是 通过 另外 的 方式 起 作用 
题 会 出 现在 网 页 的 标题 栏 上 , 该 标记 可 以 忽略 。<head>...</head> 标 记 内 常 包含 的 标记 有 


F 始 ， 以 </html> 


于 包含 当前 文档 的 有 关 信息 ， 可 以 
提高 网 页 文档 的 可 读 性 ， 例 如 标题 、 搜 索 关 键 字 、 文 档 生 成 器 等 。 位 于 头 部 的 内 容 一 般 
， 例如， 在 HTML 的 头 部 定义 的 标 


是 相对 于 这 里 定义 的 URL 而 言 的 。 一 篇 文档 中 的 <base> 标 记 不 能 多 于 一 个 ,必须 放 于 头 
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部 ， 并 且 应 该 在 任何 包含 URL 地 址 的 语句 之 前 。<base> 标 记 的 参数 介绍 如 下 : 
€ href: 指定 了 文档 的 基础 URL 地 址 。 该 属性 在 <base> 标 记 中 是 必须 存在 的 。 


€ target: target 属性 同 框 架 一 起 使 用 ， 它 定义 了 当 文 档 中 的 链接 被 点 击 后 ， 在 哪 一 
个 框架 集中 展开 页 面 。 如 果 文 档 中 超级 链接 没有 明确 指定 展开 页 面 的 目标 框架 
集 ， 则 使 用 这 里 定义 的 地 址 代替 。 

使 用 示例 : 


«base href = "http://www.microsoft.com"» 


<meta> 标 记 是 实现 元 数据 的 主要 标记 ， 它 能 够 提供 文档 的 关键 字 、 作 者 、 描 述 等 多 
种 信息 , 在 HTML 的 头 部 可 以 包括 任意 数量 的 <meta> 标 记 。<meta> 标 记 是 非 成 对 使 用 的 
标记 ， 它 的 参数 介绍 如 下 : 
€ name: 用 于 定义 一 个 元 数据 属性 的 名 称 。 

content: 用 于 定义 元 数据 的 属性 值 。 
scheme: 用 于 解释 元 数据 属性 值 的 机 制 。 
http-equiv: 可 以 用 于 蔡 代 name 属性 ，HTTP 服务 器 可 以 但 
响应 头 部 收集 信息 。 

€ charset: 用 于 定义 文档 的 字符 解码 方式 。 
使 示例 : 


上 


用 该 属性 来 从 HTTP 


«meta name = "keywords" content = "comey 制作 "> 
«meta name = "description" content = " comey 制作 "> He 
<meta http-equiv-"Content-Type" content-"text/html; charset-gb2312"» 网 
<body>...</body>: 用 于 定义 HTML 文档 的 正文 部 分 ， 所 有 出 现在 网 页 上 的 正文 内 页 
容 都 应 该 写 在 这 两 个 标记 之 间 。 该 标记 有 6 个 常用 的 可 选 属性 ， 主 要 用 于 控制 文档 的 基 i 
本 特征 。 各 个 属性 介绍 如 下 : 
€ background: 该 属性 用 于 为 文档 指定 一 幅 图 像 作 为 背景 。 出 
@ text: 该 属性 用 于 定义 文档 中 文本 的 默认 颜色 ， 也 即 文本 的 前 景色 。 : 
@ link: 该 属性 用 于 定义 文档 中 一 个 未 被 访问 过 的 超级 链接 的 文本 颜色 。 
€ alnk: 该 属性 用 于 定义 文档 中 一 个 正在 打开 的 超级 链接 的 文本 颜色 。 其 中 color 


是 颜色 的 数值 。 

@ vlink: 该 属性 用 于 定义 文档 中 一 个 已 经 被 访问 过 的 超级 链接 的 文本 颜色 。 
€ bgcolor: 该 属性 用 于 定义 文档 的 背景 颜色 。 颜 色 值 的 格式 有 两 种 : RGB 值 和 颜 
色 的 英文 名 称 。 
如 果 和 希望 将 文档 的 背景 颜色 设置 为 绿色 ， 文 本 颜色 设置 为 黑色 ， 未 访问 超级 链接 的 
文本 颜色 设置 为 白色 ， 已 访问 超级 链接 的 文本 颜色 设置 为 黄色 ， 正 在 访问 的 超级 链接 的 

文本 颜色 设置 为 紫红 色 ， 则 可 以 使 用 如 下 的 <body> 标 记 : 
<body bgcolor = "green" text = "4000000" link = "#FFFFFF" alink = "red" 
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vlink = "yellow"» 
学 习 HTML 语言 ， 从 上 述 标记 开始 是 最 好 的 起 步 ， 接 下 来 介绍 一 些 常用 的 标记 。 需 
要 先行 说 明 的 是 ， 本 节 中 将 说 到 的 显示 效果 是 指 在 浏览 器 或 在 Dreamweaver CS3 设计 视 
图 中 浏览 的 效果 。 


(1.4.3 Æ Web 站 点 上 使 用 图 像 


纯 文 本 的 网 页 无 疑 是 很 枯燥 乏味 的 , 很 难 想象 Web 站 点 上 如 果 没 有 图 像 会 是 什么 样 
子 。 利 用 HTML 可 以 很 轻松 地 在 页 面 上 混合 使 用 图 像 和 文本 , 甚至 实现 环绕 图 像 的 文本 。 
所 有 的 图 像 都 以 图 像 标记 ximg> 开 始 。<img> 标 记 的 主要 属性 介绍 如 下 : 
€ src: 用 于 指定 要 插入 图 像 的 地 址 。 
e at: 用 于 设置 当 图 像 无 法 显示 时 的 蔡 换 文本 。 
€ align: 用 于 设置 图 像 和 页 面 其 他 对 象 的 对 齐 方式 ， 取 值 可 以 是 top, middle 和 
bottom 。 
€ width, height: 用 于 设置 图 像 的 宽度 和 高 度 ， 以 像素 为 单位 。 如 果 不 指定 这 两 个 
属性 ， 则 按照 图 像 原 始 的 大 小 显示 。 
€ border: 用 于 设置 图 像 的 边框 厚度 ， 以 像素 为 单位 。 
vspace: 用 于 设置 图 像 的 垂直 边 距 ， 以 像素 为 单位 。 
€  hspace: 用 于 设置 图 像 的 水 平 边 距 ， 以 像素 为 单位 。 
使 示例; 


«img src-"image/120.gif" width="60" height-"94" /> 


eS 
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e 
S 


S 


«img src-" image/386.gif" width-"148" height-"103" border-"2" /» 
显示 效果 如 图 1-2 所 示 。 


图 1-2 示例 效果 


(1.44 插入 背景 音乐 和 动画 


对 于 网 站 设计 者 来 说 ， 如 何 能 使 自己 的 网 站 与 众 不 同 、 充 满 个 性 ， 一 直 是 不 懈 努 力 
的 目标 。 除 了 尽量 提高 页 面 的 视觉 效果 、 互 动 功能 以 外 ， 如 果 能 在 打开 网 页 的 同时 ， 听 
到 一 曲 优美 动人 的 音乐 ， 看 到 一 幅 精 彩 的 动画 ， 相 信 会 使 网 站 增色 不 少 。 


TO 3e3deu) 


在 HTML 文档 中 , 使 用 <bgsound> 标 记 可 以 在 网 页 中 插入 背景 音乐 。<bgsound> 标 记 


(1) Hj Dreamweaver JJ 


可 以 放 在 <HTML> 与 </HTML> 内 的 任何 位 置 。 下 面 通 过 一 


个 简单 例子 演示 该 标记 的 使 用 


— 


TT 需要 添加 背景 音乐 的 页 面 ， 切 换 到 代码 编辑 视图 ， 在 


<HTML> 与 </HTML> 内 的 任何 位 置 输入 “<” 并 在 弹出 的 代码 提示 框 中 选择 bgsound。 


(2) 按 空 格 键 ， 代 码 提示 框 会 自 
bgsound 标签 共有 5 个 属性 ， 其 中 balance 设置 音 
IN, loop 控制 循环 次 数 ，src 则 是 音乐 文件 的 路 径 ，volume 
(3) 选择 需要 的 属性 ， 并 设置 


<bgsound src-"music.mid" loop-" -1" > 


其 中 ，loop='-1" 表 示 音 乐 无 限 循环 


应 的 数字 即 可 。 


(4) 保存 文件 ， 并 按 F12 键 即 可 浏 


Bl, WRB 


动 将 bgsound 标签 的 属性 列 出 来 。 
乐 的 左右 均衡 ，delay 设置 播放 延 


W a oe 


WH. 


属性 值 。 最 后 的 代码 如 下 : 


览 页 面 效果 。 


放 次 数 ， 将 loop 的 值 改 为 相 


这 种 添加 背景 音乐 的 方法 是 最 基本 的 方法 ， 也 是 最 为 常用 的 一 种 方法 。 背 景 音乐 的 


格式 支持 现在 大 多 数 的 主流 音乐 格式 ， 如 WAV、MID、 
在 页 面 中 插入 FLASH 动画 使 


用 <EMBED> 标 记 。 


MP3 等 。 


同 添 加 背景 音乐 的 方法 一 样 ， 


<EMBED> 标 记 可 以 放 在 <HTML> 与 </HTML> 内 的 任何 位 置 。 


在 Dreamweaver 的 代码 视图 


<EMBED src="flash\01.swf"> 


然后 保存 页 面 ， 并 按 F12 键 预 览 ， 即 可 看 到 捐 


(1.4.5 控制 元 素 的 位 置 


网 页 设计 者 都 希望 制作 出 精彩 的 网 页 吸引 住 “ 挑 易 ” 的 访问 者 ， 那 么 网 页 精彩 
与 否 的 因素 是 什么 呢 ? 色 彩 的 搭配、 文字 的 变化 、 图 片 的 处 理 等 ， 这 些 当然 是 不 可 忽 


略 的 因素 。 除 了 这 些 ， 还 有 一 个 非 浓 习 


中 键入 如 下 的 HTML i 


AA: 


入 的 动画 效果 。 


EE IS ELLA AT 


看 到 只 注重 内 容 的 站 点 。 昌 然 内 容 很 


时 ， 这 种 网 页 或 者 说 站 点 


网 页 布局 涉及 页 面 的 尺寸 、 整 体 造 型、 


a 
Ho, 


会 受 人 喜欢 


元 素 的 摆 放 位 置 决定 着 整个 页 面 布局 的 可 视 性 。 本 节 主 要 介 


些 标记 。 


首先 是 表格 标记 。 表 格 在 网 
料 、 规 范 各 种 数据 、 输 入 列表 式 的 文字 ， 而 且 


zi 


空间 编排 上 都 发 挥 着 重要 的 作用 。 


表格 标记 <table>...</table> 


页 设计 中 占有 


文本 与 图 形 的 


limi 


EE 要 的 地 位 ， 


EUSEB. M 
绍 控制 页 面 元 素 位 置 的 


它 不 但 能 够 记载 表单 式 的 资 


] 来 排列 文字 和 图 形 ， 在 整个 网 页 元 素 


用 于 标志 表格 的 开始 和 结束 。 


€ align: 设置 表格 与 页 


€ background: 设置 表 


格 的 


dt Ri 
HI 


图 像 。 


€ bgcolor: 设置 表格 的 背景 颜色 。 


表格 常用 参数 介绍 如 下 : 


面 对 齐 方式 ， 取 值 有 left、center 和 right. 
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€ border: 设置 表格 的 边框 。 

€ width 设置 表格 的 宽度 ， 单 位 默认 为 像素 ， 也 可 以 使 用 百分比 形式 。 
€ height: 设置 表格 的 高 度 ， 单 位 默认 为 像素 ， 也 可 以 使 用 百分比 形式 。 
€  cellpadding: 设置 表格 的 一 个 单元 格 内 数据 和 单元 格 边框 间 的 边 距 。 

€  cellspacing: 设置 单元 格 之 间 的 间距 ， 以 像素 为 单位 。 


表格 内 常 钥 入 的 三 个 标记 分 别 介 引 


如 下 : 


Li 
Li 


<tr>...</tr> 标 记 用 于 标志 表格 一 行 的 开始 和 结束 。 
<th>...</th> 用 于 标志 表格 内 表 头 的 开始 和 结束 。<th> 的 主要 参数 介绍 如 下 : 
€  colspan: 设置 <th>...</th> 内 的 内 容 应 该 跨越 几 列 。 
€ rowspan: 设置 <th>...</th> 内 的 内 容 应 该 跨越 儿 行 。 
<td>..….</td> 用 于 标记 表格 内 单元 格 的 开始 和 结束 。<td> 标 记 应 位 于 <tr> 标 i 
下 面 通 过 一 个 简单 的 例子 演示 表格 标记 的 使 用 。 在 Dreamweaver 的 代码 视 


如 下 代码 : 


内 部 。 


K 


«table bordercolor-"4CC0000" bgcolor=" #FFFFCC" border=2> 


EAEN Ea 


«th colspan="3">ABC</th> 


<tr><th>Food</th><th>Drink</th><th>Sweet</th> 


<tr><td>A</td><td>B</td><td>C</td> 


</table> 


在 浏览 器 中 的 显示 效果 如 图 


1-3 所 示 : 


(0.4.6 格式 化 文本 


Hm 


格式 化 标记 。 


1. <h#> 标 记 


[0 3e3deu) 


HTML 能 够 识别 六 级 标题 ， 
数字 表示 的 级 别 比较 高 。 


与 <title> 标 记 不 一 样 ，<h#> 标 记 里 的 文本 显示 在 浏览 器 中 。 


[格式 化 了 的 文本 还 可 以 增强 可 读 性 和 条 理 


<h#>...</h#> 标 记 自 


图 1-3 示例 效果 


性 。 


中 键入 


在 页 面 上 完成 文本 输入 后 ， 会 发 现 文本 字体 、 样 式 一 样 ， 不 能 体现 网 页 内 容 的 
层次 ， 也 不 美观 。 格 式 化 文本 不 仅 可 以 使 文本 更 加 美观 ， 符 合 人 们 的 阅读 习惯 ， 而 


F 面 介绍 HTML 文档 中 常用 的 文本 


从 <hl> 到 <h6>。 数 字 表 示 标 题 文本 内 容 的 级 别 ， 较 小 的 


动 插入 


个 空 和 


Pub 


]«p» rid Hi 


加 空 行 。 
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使 J 示例 


<h1> 这 是 一 级 标题 </h1> 
<h2> 这 是 二 级 标题 </h2> 
<h3> 这 是 三 级 标题 </h3> 
<h4> 这 是 四 级 标题 </h4> 


<h5> 这 是 五 级 标题 </n5> 


<h6> 这 是 六 级 标题 </n6> 
显示 效果 如 图 1-4 所 示 。 


这 是 一 级 标题 
这 是 二 级 标题 

这 是 三 级 标题 

这 是 四 级 标题 

这 是 五 级 标题 

这 是 六 级 标题 


图 1-4 示例 效果 


2.x<b> 、x<i> 和 <u> 标 记 


..</b> 将 标记 之 间 的 文本 设置 成 粗 体 。<i>...</i> 将 标记 之 间 的 文本 设置 成 斜体 。 
u> 2L E IM 例如 : 


Happy<b>NEW</b>Year! 
<i> 和 斜体 显示 </i> 
<u> 关 注 这 里 ! </u> 
显示 效果 : 
HappyNEW Year ! 
ALIA 
关注 这 里 ! 


3. <xbig>、<small > 和 <pre> 标 记 


<big>...</big> 标 记 将 使 用 比 当前 页 面 使 用 的 字体 更 大 的 字体 显示 标记 之 间 的 文本 。 
<small>...</small> 标 记 将 使 用 比 当前 页 面 使 用 的 字体 更 小 的 字体 显示 标记 之 间 的 文本 。 
<pre>...</pre> 标 记 用 于 设 定 浏览 器 在 输出 时 ， 对 标记 内 部 的 内 容 几 乎 不 做 修改 地 输出 。 
和 否则， 浏览 器 会 自动 取消 文本 中 的 空格 。 
使 用 示例 : 


雪花 < small > 片 片 </ small > K! 
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«font size=2> 我 <big> 非 常 </big> 高 兴 ! </font> 


«pre» 

遗失 的 美好 

</pre> 

遗失 的 美好 

显示 效果 : 
雪花 片 片 飞 
RHEN! 
遗失 的 美好 
遗失 的 美好 


4. <em> 标记 


xem>...</em> 用 于 将 标记 之 间 的 文字 加 以 强调 。 不 同 的 浏览 器 效果 有 所 不 同 ， 通 常 
会 设置 成 斜体 。 
使 用 示例 : 
<em> 强 调 文 本 </em> 


5. «font dio 


Wt d uL qum E 绍 如 下 : 
€ face: 用 于 设置 文本 字体 名 称 ， 如 果 有 多 种 字体 ， 用 ; 
€ Size: 用 于 设置 文本 字体 大 小 ， 数 字 越 大 字体 越 大 。 
€ Color: 用 于 设置 文本 颜色 ， 可 以 用 red. white 和 green 等 助 记 符 ， 也 可 以 用 16 

进 制 数 表 示 ， 如 红色 为 "#FF0000"。 

使 示例: 

«font face-"ÍÉX1]4É" size="72" color="#000000"> 似 水 流年 </font> 

显示 效果 如 图 1-5 所 示 。 


(oh, 水 EA 年 


图 1-5 示例 效果 


6. <S> 和 <hr> 标 记 


S>...</s> 为 标记 之 间 的 文本 加 删除 线 《〈 即 在 文本 中 间 加 一 条 横 线 )。<hr> 标 记 用 于 
在 页 面 添 加 一 条 水 平 线 。 
使 用 示例 : 


[0 X31deyd 


LSS RRAHU s> 


命运 <hr> 爱 开玩笑 ! 
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爱 开玩笑 ! 


7. <center>. 


<center>.. 


使 用 示例 : 
<center> 桃 心 花 林 </center> 
显示 效果 : 
桃 心 花 木 
8. <p>、<div> 和 <span> 标 记 
段落 标记 xp>...</p> 标 记 用 来 分 隔 文档 的 多 个 段落 。 通 过 使 用 对 齐 属性 align 可 以 强 


<left> 和 <right> 标 记 


制 浏 览 器 以 指定 方式 显示 一 个 段落 ， 例 如 : 
区 隔 标记 <div> 可 以 把 文档 分 隔 成 几 个 部 
默认 情况 下 ，<div> 标 记 与 段落 标记 相同 ， 


中 ， 并 不 支持 div 标记 。 


< span> 标 记 定 义 HTML 文档 中 的 一 个 行内 间隔 ， 


.</center> 将 标记 之 间 的 文本 等 元 素 居中 显示 。<left>.. 
的 文本 等 元 素 居 左 显示 。<right>.. 


它 有 一 


align="right">. 
， 设 置 文本 、 
使 用 同样 的 属性 ， 


图 片 、 表 格 等 元 素 的 位 置 。 
注意 ， 在 一 些 非 IE 浏览 器 


个 重要 而 实用 的 特性 ， 即 


它 什么 也 不 会 做 ， 唯 一 目的 就 是 对 CSS 文件 进行 样式 的 说 明 。 例 如 ， 定 义 了 class stylel 
的 文字 大 小 为 10， 颜 色 为 红色 ， 则 <span class="stylel"> 与 <font size=10 color=red>abcd</ 


E tlre ks <div> 是 一 个 块 级 元 素 ， 可 以 包含 段落 、 标 题 


font> 的 效果 是 一 样 的 。 


没有 结构 的 意义 ， 多 


别 。 
<html> 


<head> 


PREMIER 


、 表 格 ， 


而 <span> 是 行内 元 素 ， <span> 的 前 后 是 不 会 换行 的 ， 它 


f 式 。 下 面 的 程序 清 


单 可 以 使 


«title»div and span experiments</title> 


«/head» 


«body» 


<span>my first span.</span> 


<span>please test it.</span> 


<p>&nbsp;</p> 


<div> 


读者 更 直观 地 看 到 它们 的 区 


.</left> 将 标记 之 间 
.</right> 将 标记 之 间 的 文本 等 元 素 居 右 显示 。 


[0 3e3deu) 


«/div» 
<span>please test it again.</span> 
«/body» 


«/html» 


FED Tas PUA SCE, BORG 1-6 所 示 : 


€) div and span experiments - Microsoft Internet Explorer Q (6) [*.] 
CHO ”编辑 (E) SEV KRA IAW HEH) ay 


3st | -| © - [xl [e] Cd) JO s | she ex 


地 址 (D) (Æ) http:/slocalhost/ 1 1. html Bra s” 


my first span. please test it. 


my second span. 
please test it again. 


GE XJ 本 地 Intranet 


图 1-6 示例 效果 


9. <sSub> 和 <sup> 标 记 
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<span>my second span.</span> 


<sub>...</sub> 将 标记 之 间 的 文本 设置 成 下 标 。<sup>...</sup> 将 标记 之 间 的 文本 设 


置 成 上 标 。 
使 | j 示例 : 


今天 <sub>123</sub> 昨 天 ! 


今天 <sup>123</sup> 明 天 ! 


显示 效果 : 
今天 1 昨天! 
今天 3 明 天! 


10. <ol>、<ul> 和 <li> 标 记 


<ol>...</ol> 用 来 标记 有 序列 表 的 开始 和 结束 ; <ul>.…</ul> 用 来 标记 无 序列 表 的 开始 


和 结束 ;<l>.…</i> 用 来 标记 有 序 或 无 序列 表 的 列表 项 目的 开始 和 结 
个 属性 “type”， 其 值 的 功能 介绍 如 下 : 
€ type=1: 表示 用 数字 给 列表 项 编号 ， 这 是 默认 设置 。 
€ type=a: 表示 用 小 写字 母 给 列表 项 编号 。 
€ type=A: 表示 用 大 写字 母 给 列表 项 编号 。 
€ type=i: 表示 用 小 写 罗马 字母 给 列表 项 编号 。 
€ ype: 表示 用 大 写 罗马 字母 给 列表 项 编号 。 


Se 


列表 可 以 峰 套 使 用 。 浏 览 器 对 于 下 级 列表 使 用 缩 进 的 方法 ， 下 级 比 包 
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。 有 序列 表 有 


含 它 的 上 一 级 


列表 缩 进 一 个 级 别 。 使 用 示例 : 


<ul> 
<1i> 王 菲 </1i> 
<1i> 张 韶 涵 </1i> 
«ol type-"a" > 
<1i> 隐 形 的 翅膀 </1i> 


<li> </li> 


<1i> 欧 车 拉 </1i> 
</ol> 
<1i> 那 英 </1Li> 
«/ul» 
显示 效果 : 
ERE 
TERRIA 
a 隐形 的 翅膀 
b. A 
c. KEH 
那英 


(0.4.7 不 同文 件 之 间 的 链接 


链接 也 叫 超 文本 链接 。 在 网 页 中 加 入 超 文本 链接 ， 就 是 通过 单 击 一 部 分 文本 、 图 像 
或 者 图 像 中 的 一 个 区 域 ， 即 可 调 出 另 一 个 网 页 或 本 网 页 的 另 一 部 分 内 容 。 
HTML 文件 的 链接 是 通过 链接 标记 <a>...</a> 来 实现 的 。<a> 标 记 有 两 个 不 能 同时 使 
的 参数 href 和 name， 此 外 还 有 参数 target 等 ， 分 别 介绍 如 下 : 
€ href: 用 于 指定 目标 文件 的 URL 地 址 或 页 内 销 点 ，<a> 标 记 使 用 此 参数 后 ， 在 浏 
览 器 中 单 击 标记 间 的 文本 ， 页 面 将 跳 转 到 指定 的 页 面 或 本 页 内 指定 的 锚 点 位 置 。 
于 标识 一 个 目标 “〈 即 锚 点 ， 用 于 页 内 链接 ) 。 
€ target: 用 于 指定 打开 新 页 面 所 在 的 目标 窗口 。 取 值 有 _self〈 将 链接 的 文件 载 入 
该 链接 所 在 的 同一 框架 或 窗口 中 ) ，_parent〈 将 链接 的 文件 载 入 含有 该 链接 的 
框架 的 父 框 架 集 或 父 窗口 中 ) ，_blank( 将 链接 的 文件 载 入 一 个 未 命名 的 新 浏览 
器 窗口 中 ) ，_top“〈 在 整个 浏览 器 窗口 中 载 入 所 链接 的 文件 ， 因 而 会 删除 所 有 框 
AR) 。 若 本 页 使 用 了 框架 技术 ， 还 可 以 把 target 设置 为 框架 名 称 。 
使 用 示例 : 


«a href="url"> 链 接 字 符 早 </a><br> 


€ 


PCM 


€ name: 


«a name="name">text</a> 


显示 效果 : 


链接 字 


text 
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所 有 写 在 起 始 标 记 <a> 和 结束 标记 </a> 之 间 的 文字 构成 一 个 实际 的 链接 , 在 浏览 器 内 


显示 时 ， 这 些 文字 将 以 默认 蓝 色 高 亮度 和 和 带 有 下 划 线 的 形式 出 现 。href 后 面 的 内 容 是 所 
链接 的 网 页 文件 的 路 径 与 文件 名 字 或 URL. 

如 果 使 用 图 像 或 动画 的 链接 , 则 在 单 击 图 像 或 动画 后 , 可 调 出 与 之 链接 的 网 页 文件 。 
加 入 了 链接 的 图 像 或 动画 会 自动 添加 一 个 外 框 ， 以 示 与 一 般 的 图 像 或 动画 的 区 别 。 建 并 
图 像 或 动画 的 链接 的 方法 是 在 链接 的 起 始 标 记 的 中 间 加 入 一 个 <img> 标 记 ， 如 下 例 所 示 : 


<a href-"ll.html"»«img src-"image/glvbnl.gif" width="106" height-"47" 


/></a> 
tu RS EE SCS Pe Doe MAY CSS 样式 或 其 他 文档 ， 可 以 使 用 <link> 标 记 。 
该 标记 定义 文档 之 间 的 包含 ， 放 在 HTML 文档 的 头 部 。 在 HTML 文档 的 头 部 可 以 包含 
任意 数量 的 <link> 标 记 。<link> 标 记 带 有 很 多 参数 ， 下 面 介绍 的 是 一 些 常用 的 参数 : 
€ href: 用 于 设置 链接 资源 所 在 的 URL. 
e tte: 用 于 描述 链接 关系 的 字符 串 。 
€ re: 用 于 定义 文档 和 所 链接 资源 的 链接 关系 , 可 能 的 取 值 有 Alternate, Stylesheet, 
Start, Next, Prev, Contents, Index, Glossary, Copyright, Chapter, Section, 
Subsection，Appendix，Help， 和 Bookmark 等 。 如 果 希 望 指定 不 止 一 个 链接 关 
系 ， 可 以 在 这 些 值 之 间 用 空格 隔 开 。 
€ rev: 用 于 定义 文档 和 所 链接 资源 之 间 的 反 向 关系 。 其 可 能 的 取 值 与 rel 属性 相同 。 
使 用 示例 : 


<link rel="stylesheet" type="text/css" href="./base.css"> 


001.4.8 框架 网 页 


框架 就 是 把 一 个 网 页 页 面 分 成 几 个 单独 的 区 域 ( 即 窗口 ), 每 个 区 域 显 示 一 个 独立 的 
HTML 文件 。 因 此 框架 可 以 实现 在 一 个 网 页 内 显示 多 个 HTML 文件 。 对 于 一 个 有 NN 个 
区 域 的 框架 网 页 来 说 ， 每 个 区 域 有 一 个 HTML 文件 ， 整 个 框架 结构 也 是 一 个 HTML X 
件 ， 因 此 该 框架 网 页 有 N+l 个 HTML 文件 。 设 置 框架 需要 使 用 标记 
<frameset>...</frameset> 2 Uf C «body» ...... </body> Frid « 

<frameset>.…</frameset> 标 记 用 于 标志 页 面 中 水 平和 垂直 框架 的 数目 ， 其 参数 如 下 ; 

€ rows: 用 于 设置 行 的 大 小 ， 行 的 大 小 为 浏览 显示 器 的 百分比 。 
€ cols: 用 于 设置 列 的 大 小 ， 列 的 大 小 为 浏览 显示 器 的 百分比 。 
€  frameborder: 用 于 设置 框架 是 否 有 边框 ， 取 值 为 yes 或 no。 
€ border: 用 于 设置 框架 边框 的 厚度 。 

«frame» ... </frame> 标 记 代 表 一 个 框架 ， 必 须 在 <frameset>...</frameset> 标 记 内 使 用 。 
其 参数 介绍 如 下 : 

€ name: 用 于 设置 框架 名 称 。 


oe 


[0 3e3deu) 


€ scrolling: 用 于 设置 框架 是 否 有 滚动 条 ， 取 值 为 yes 有 滚动 条 ， 取 值 为 no 则 没有 
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滚动 条 ， 取 值 为 auto 则 根据 需要 自动 设置 ， 默 认 值 是 auto。 


— 


SIC: 


于 指定 该 框架 的 HTML 文件 ， 若 不 设 此 参数 则 框架 内 没有 内 容 。 
marginwidth: 用 于 控制 框架 内 的 内 容 与 框架 左右 边缘 的 间距 。 默 认 值 为 1 像素 。 
marginheight: 用 于 控制 框架 内 的 内 容 与 框架 上 下 边缘 的 间距 。 默认 值 为 1 像素 。 
noresize: 如 果 设 置 了 此 属性 ， 则 用 户 不 可 使 ) 


有 设置 此 属性 ， 则 用 户 可 以 使 ) 
为 使 读者 加 深 对 框架 标记 的 理解 ， 


下 边 的 窗口 也 横向 开设 两 个 窗口 ,各 占 40% 和 60%。 各 窗口 内 分 别 加 载 文件 1.html、2.html 


和 3.html 和 4.html。 


«html» 


LACS F: 


<head> 

<frameset rows="40%, 60%"> 
«frameset cols-"50$,50$"» 
«frame src="1.html"> 
«frame srcz-z"2.html"» 
«/frameset» 

«frameset cols="40%, 60%"> 
frameeSsrme Mm 
«frame src-z"4.html"» 

«/frameset» 

«/frameset» 

«/head» 
«/html» 


TDI Vds PUES OCR Un E. 1-7 所 示 。 


E 
实现 文件 之 间 的 切换 。 


实现 在 一 个 框架 中 使 用 链接 打开 另 一 个 框架 ， 


用 框架 结构 可 以 在 同一 窗口 中 同时 显示 多 个 文件 ， 还 可 以 采用 导航 条 技术 方便 地 


的 文档 ， 需 要 使 用 target 属性 。target 


中 使 用 。 下 面 举例 说 明 。 
(1) 在 <a> 标 记 中 使 
设置 其 链接 的 窗口 文件 和 和 名称 ， 


属性 可 以 在 HTML 的 多 个 标记 内 使 用 。 常 ) 


]。 仿 照 上 例 制作 一 个 框架 网 
LATET: 


的 方式 有 两 种 在 <a> 标 记 或 <base> 标 记 


E 


O FPA EPS BEA, JP 
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J Bb HEAR eA); GRY 
J bs as BG ER RAER A AK) e 

下 面 通过 一 个 实例 具体 说 明 。 
开设 两 个 纵向 窗口 ， 各 占 40% 和 60%， 上边 的 窗口 横向 开设 两 个 窗口 ， 各 占 50%， 
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图 1-7 显示 效果 

«html» 
<head> 
<frameset rows="40%, 60%"> 

«frame src-"l.html" name="first"> 
«frame src-"2.html" name="second"> 
«/frameset» 
«/head» 
«/html» 
编写 1.html 的 代码 ， 有 具体 如 下 : 


«html» 


«body» 


<h2 align=center> 框 架 示 例 </h2> 
«a href-news.html target-"sencond"»J3J iB EH </a><br> 
«a href=music.html target="sencond">H KK it</a><br> 


<a href-text.html target="sencond"> 语 过 添 情 </a><br> 


«a href-book.html target="sencond"> 白 鹿 书 院 </a><br> 


</body> 
«/html» 


在 浏览 器 中 预览 网 页 效果 ， 单 击 “ 语 过 添 情 ” 超 链 接 的 效果 如 图 1-8 所 示 : 
(2) 在 <base> 标 记 中 使 用 。 如 果 链 接 的 文件 均 在 一 个 窗口 内 显示 , 则 可 以 使 用 <base> 


y 


[0 3e3deu) 


标记 。<base> 标 记 的 格式 如 下 : 


«base target-"window-name"» 
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图 1-8. 显示 效果 


其 中 ，window-name 可 以 是 窗口 的 名 字 ， 也 可 以 是 以 下 几 种 目标 : blank. | parent, 
self 或 top。 有 关 这 几 种 目标 的 说 明 见 本 章 1.4.7 HATZ 

由 于 早期 版 本 的 浏览 器 不 支持 框架 ， 当 页 面 中 含有 框 刀 "M, 浏览 器 就 不 能 正确 显示 
页 面 的 内 容 ， 这 时 必须 编辑 一 个 无 框架 文档 。 当 不 支持 框架 的 浏览 器 载 入 框架 文件 时 ， 
浏览 器 只 会 显示 出 无 框架 内 容 。<noframe>...</noframe> 标 记 可 以 设置 当 浏 览 器 不 支持 框 
架 技 术 时 显示 的 文本 。 通 常 的 做 法 是 在 此 标记 之 间 放 置 提 示 用 户 浏览 器 不 支持 框架 的 信 
息 ， 例 如 下 面 的 代码 : 


<frameset cols=30%,70%> 


«frame src-"A.html" frameborder=0> 
«frame src-"B.html" frameborder-0» 


<noframe> 对 不 起 ， 您 的 浏览 器 不 支持 框架 。</noframe> 


«/frameset» 
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和 ee 


op 2 


zu 可 视 化 网 页 制作 工具 Dreamweaver 


v X 
MAARA 


Adobe Dreamweaver CS6 是 Adobe 发 布 的 Dreamweaver 最 新 版 本 ， 借 : 


| 助 Adobe Dreamweaver CS6 软件 ， 用 户 可 以 快速 、 轻 松 地 完成 设计 、 开 发 和 : 
:维护 网 站 和 Web 应 用 程序 的 全 过 程 。 它 是 专 为 设计 人 员 和 开发 人 员 而 构建 : 
， 的 ， 它 提供 了 世界 级 的 Web 设计 工具 的 所 有 灵活 性 和 强大 功能 ， 可 以 选择 | 
;在 直观 的 可 视 布 局 界面 或 简化 的 编码 环境 下 工作 ， 可 以 与 其 他 Adobe 工具 : 
软件 智能 集成 ， 确 保 在 您 喜爱 的 工具 上 有 一 个 有 效 的 工作 流 ， 支持 领先 的 | 
Web 开发 技术 ; 使 用 XSL 或 适合 于 Ajax 的 Spry 框架 ,快速 集成 XML: 
| 内容， 借助 全 新 的 CSS 布局 加 速 您 的 工作 流 ， 并 借助 全 新 的 浏览 器 兼容 性 | 
“检查 测试 设计 。 r 


站 点 的 构建 与 管理 
制作 基础 网 页 

CSS 样式 表 

页 面 布局 技术 
动态 网 页 基础 


© © © 9 


e 


2.1 Dreamweaver CS6 概述 


Dreamweaver 是 一 种 全 新 概念 的 产品 。 利 用 它 可 以 在 多 种 服务 器 平台 上 ， 在 一 个 软件 
中 完成 文 持 多 种 语言 的 动态 网 页 的 开发 ， 产生 和 编辑 用 ASP、JSP、Cold Fusion, ASP.NET 


开发 的 Web 内 容 。 


域 占据 了 一 定 的 优势 地 位 。 


Adobe Dreamweaver CS6 是 可 视 化 建立 管理 Web 站 点 和 网 页 设计 
将 可 视 布 局 工具 、 应 用 程序 开发 功能 和 代码 编辑 支持 组 合 好 
其 功能 强大 ， 使 得 各 个 层次 的 开发 人 员 和 设计 人 员 都 能 够 快速 创建 
的 网 站 和 应 用 程序 。 从 对 基于 CSS 的 设计 的 领先 支持 到 手工 编码 功能 


Dreamweaver 最 早 是 美国 Macromedia 公司 开发 上 
的 所 见 即 所 得 的 、 针 对 专业 网 页 设计 师 的 可 视 化 网 页 开发 工具 ， 利 
作出 跨 平 台 、 跨 浏览 器 的 充满 动感 的 网 页 。Dreamweaver 文 持 最 新 的 
采用 多 种 先进 技术 ， 能 够 快速 高 效 地 创建 极 具 表现 力 和 动态 效果 的 网 页 。 利 ) 
轻松 地 制作 出 美观 的 网 页 ， 而 且 可 以 生成 精练 、 
Flash 合 称 为 “梦幻 组 合 ”， 在 网 页 制作 、 网 页 图 形 处 理 和 矢量 动画 


9 集 网 页 


BE 


和 网 站 管理 功能 于 一 身 


SS 


j 它 可 以 轻而易举 地 制 
DHML 和 CSS 标准 ， 


高 效 的 HTML 源 代 码 。 它 与 


er 


它 不 但 可 以 
Fireworks、 
个 网 络 创 作 的 主要 领 


BEREA TH. E 
FE 一 起 ， 支 持 最 新 的 Web 技术 ， 


界面 吸引 人 的 基于 标准 


供 了 专业 人 员 在 一 个 集成 、 高 效 的 环境 中 所 需 的 工具 。 开 发 人 员 可 以 使 用 
所 选择 的 服务 器 技术 来 创建 功能 强大 的 Internet 应 | 


程序 ， 从 而 使 | 


，Dreamweaver 提 


H 


Dreamweaver 及 


j 户 能 连接 到 数据 库 、 


Web 服务 和 旧式 系统 ! Adobe Dreamweaver CS6 还 能 与 Adobe Photoshop CS6、Adobe 


Illustrator CS6、Adobe Fireworks CS6 和 Adobe Flash CS6 Professional 等 软件 


保 在 用 户 喜 爱 的 工具 上 有 一 个 有 效 的 工作 流 。 


[2 1.1 Dreamweaver 的 主要 特点 


(1) 便捷 的 网 站 管理 。 使 用 站 点 地 图 


改变 网 页 位 置 或 文档 名 称 ， 还 可 以 自动 检查 、 更 新 所 有 链接 。 


(2) 无 可 比拟 的 控制 能 力 。Dreamweaver 
工具 。 网 页 基本 元 素 的 制作 速度 快 得 令 人 无 法 想象 。 此 外 ，Dreamweaver 资源 精准 定位 ， 


利用 表格 和 层 的 互 转换 功能 ， 只 需要 简单 拖 放 民 


Au ec 


Fi 能 集成 ， THI 


可 轻松 地 对 版 面 进行 配置 。 


可 以 快速 构建 站 点 ， 设 计 、 更 新 和 重组 网 页 、 


是 可 视 化 编辑 与 原始 代码 编辑 同步 的 设计 


(3) 所 见 即 所 得 。Dreamweaver 成 功 整合 动态 式 出 版 视觉 编辑 及 电子 商务 功能 ， 提 


供 超 强 的 资源 能 力 给 第 三 方 厂商, 使 用 


让 设计 者 不 需要 通过 浏览 器 便 可 预览 


(4) 梦幻 模板 和 XML。Dreamweaver 将 内 容 与 设计 分 开 
立 网 页 外 观 的 模板 ， 指 定 可 编辑 和 不 可 编辑 的 部 分 ， 编 辑 人 员 可 直接 编辑 以 村 
容 且 不 会 因为 误 操 作 而 改变 既定 样式 。 
(5) 全 方位 的 呈现 。 利 用 Dreamweaver 设计 的 网 页 ， 可 以 全 方位 地 呈现 在 任何 平台 
] 户 在 不 同 浏览 器 


的 热门 浏览 器 上 。 使 用 不 同 浏览 器 的 检视 功能 ，Dreamweaver 可 以 告知 


网 页 。 


, 


EH 
oL. 


于 网 页 开发 


Dreamweaver 设计 动态 网 页 时 , 所 见 即 所 得 的 功能 ， 


f 式 为 主 的 内 


团队 化 。 建 
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上 执行 的 效果 。 

简单 地 说 ， 使 用 Dreamweaver 可 以 使 网 页 在 Dreamweaver 和 HTML 代码 编辑 器 之 间 
进行 自由 转化 ， 使 得 专业 设计 者 可 以 在 不 改变 原 有 编辑 习惯 的 同时 ， 充 分 享受 到 “所 见 即 
所 得 ” 带 来 的 高 效率 和 直观 性 。 


[Llo. 1. 2 Dreamweaver 的 工作 环境 


执行 “开始 ”/“ 程 序 ”/ “Adobe Dreamweaver CS6” 命 令 ， 即 可 启动 Dreamweaver CS6. 
在 Dreamweaver CS6 中 ， 使 用 预定 义 的 页 面 布 局 和 代码 模板 ， 可 以 快速 地 创建 出 比较 专业 
的 页 面 。 执 行 “ 文 件 ”/“ 新 建 ” 命 令 ， 在 打开 的 “新 建文 档 ” 对 话 框 中 选择 “空白 页 ”类 
别 的 HTML 基本 项 ， 布 局 “无 ”然后 单 击 “创建 ”按钮 进入 Dreamweaver CS6 中 文 版 的 
工作 界面 ， 如 图 2-1 所 示 。 


布局 、DW 扩 展 和 站 点 管理 器 按钮 工作 区 布局 模式 
Dw [m 9- 品 v| Bite - l-la| x J 
rD 编辑 Ff) S80) MAG) BAM) BEO ASO MAG) BOM) Bahco 
Untitled-1 x — 
| 代码 | 拆 分 | 设计 | 实时 视图 @. M. o9 EX GG, 标题 : 死 ; aba 文件 
0 8 uda EZ OG ELS 
ün csst#st 
Eu 二 元 素 
< 只 标签 检查 器 
SESS 
Up e zi 
经 sm B. 
文档 窗口 ü 
dp mescs ie 
组 
四 Business Catalyst 
C3 Adobe BrowserLab 
Oo mE [k] Q 100 v m m [BH] 508 x 392v 1 K/ 1% Unicode (UTF 
cr 性 = 
EC om. 目标 规则 | GF css 规则 > v| 字体 (0) | 默认 字体 vi BZ 
(D | & [Ec Cm 2 aay | 
3 页 面 属性 列表 项 目 


图 2-1 Dreamweaver CS6 的 工作 环境 


默认 状态 下 ,“ 插 入 ”面板 以 浮动 面板 方式 停靠 在 文档 窗口 右 侧 的 浮动 面板 组 中 ， 如 
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图 2-1 所 示 。 插入 面板 tA “ 常 | 1^ “布局 » “表单 RT * InContext Editing”. “ 数 
Hi”. “Spry”. “jQuery Mobile” 和 “收藏 来 ”等 9 组 ， 每 组 中 有 不 同类 型 的 对 象 。 如 果 要 
在 各 个 面板 之 间 进 行 切 换 ， 单 击 面板 标签 右 侧 的 下 拉 箭 头 ， 在 弹出 的 下 拉 荣 单 中 选择 需要 


的 面板 即 可 。 
默认 状态 下 ,“ 插 入 ”面板 中 的 各 组 对 象 均 显示 为 灰色 ， 当 光标 移 到 对 象 图 标 上 时 显 
示 为 彩色 。 如 果 希 望 图 标 一 直 显 示 为 彩色 ， 可 以 单 击 面板 标签 右 侧 的 下 拉 箭 头 ， 在 弹出 的 
下 拉 菜 单 中 选择 “颜色 图 标 ” 菜 单项 。 如 果 和 希望 面板 中 的 所 有 对 象 只 显示 图 标 ， 则 在 下 拉 
荣 单 中 选择 “隐藏 标签 ” 荣 单 项 。 
使 用 “插入 ”菜单 中 的 命令 也 可 以 实现 插入 各 种 对 象 ， 使 用 菜单 还 是 使 用 “插入 ” 面 
板 ， 完 全 根据 用 户 的 习惯 来 决定 。 
Dreamweaver 的 工具 栏 中 包含 了 一 些 用 于 查看 文档 窗口 或 者 预览 设计 效果 的 常用 图 标 
按钮 和 弹出 菜单 。 单 击 ( 代码 _， 显 示 代 码 视图 ; 单 击 | 拆 分 ， 在 同一 屏幕 中 显示 代码 和 设计 
视图 ， 单 击 | 测 读 |， 显示 设计 视图 。 其 他 图 标 按钮 的 功能 如 下 : 
“标题 ”: 设置 文档 的 标题 (页 面 <title> </title> 标 签 之 间 的 内 容 〉。 
T. 多 屏幕 预览 。 借 助 Dreamweaver CS6 新 增 的 “多 屏幕 预览 ”功能 ， 为 智能 手机 、 平 板 
电脑 和 台式 机 进行 设计 。 
慑 ， 跨 浏览 器 兼容 性 检查 的 下 拉 菜 单 。 
验证 标记 下 拉 菜 单 。 使 用 W3C 联机 验证 服务 验证 当前 文档 或 选 定 的 标签 ， 以 确保 
标准 网 页 设计 的 精确 性 。 
Me. 文件 管理 下 拉 菜 单 。 
©.. 在 浏览 器 中 预览 、 调 试 下 拉 菜单 ， 可 以 预览 制作 效果 。 
C. 刷新 设计 视图 。 
他 -可视化 助理 下 拉 菜 单 。 
文档 窗口 用 于 显示 当前 创建 或 者 编辑 的 文档 ， 可 以 根据 所 选择 的 显示 方式 不 同 而 显示 
不 同 的 内 容 。 设 计 者 的 操作 结果 都 会 在 文档 窗口 中 显示 。 不 管 是 利用 Dreamweaver CS6 提 
供 的 工具 或 命令 进行 编写 ,还 是 直接 在 代码 视图 中 进行 编写 ， 所 进行 的 工作 都 是 在 文档 窗 
口中 完成 的 ， 在 文档 窗口 中 也 包含 了 所 编辑 或 创建 文档 的 所 有 HTML 代码 。 
在 Dreamweaver CS6 工作 环境 的 右 侧 显示 有 浮动 面板 组 。 这 些 面板 可 以 自由 地 在 界面 
上 拖 动 , 也 可 以 将 多 个 面板 组 合 在 一 起 , 成 为 一 个 选项 卡 组 。 在 默认 的 情况 下 , Dreamweaver 
CS6 中 的 浮动 面板 都 结合 成 组 排列 于 整个 工作 环境 的 右 侧 ， 并 且 自 动 排 齐 。 在 菜单 栏 中 的 
“窗口 ”下 拉 菜 单 中 可 以 打开 或 者 关闭 这 些 面板 。 
状态 栏 用 于 显示 和 控制 文档 源 代码 、 显 示 页 面 大 小 、 查 看 传输 时 间 等 。 
遇 性 面板 用 于 设置 或 修改 被 选 对 象 的 各 项 属性 值 。 单 击 面板 右 下 角 的 兰 按钮 可 以 关闭 
属性 面板 的 下 部 分 。 兰 按钮 变 成 器 按 钮 ， 单 击 此 按钮 可 以 重新 打开 属性 面板 的 下 部 分 。 
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[Llo. 1.3 Dreamweaver 的 工作 流程 


利用 Dreamweaver 进行 Web 应 用 程序 的 开发 和 设计 ， 一 般 而 言 ， 有 以 下 四 个 步骤 : 
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(1) 构建 本 地 和 远程 站 点 。 根 据 需 求 构建 合适 的 站 点 文件 和 文件 夹 。 对 于 ASP.NET 
站 点 ， 还 需要 搭建 Web 服务 器 。 


(2) 设计 HTML 静态 页 面 。 
大 多 数 情况 下 ,设计 动态 网 页 
大 的 HTML 页 面 设计 工 


动态 网 页 


面 首先 应 该 


态 内 容 的 开发 和 设计 。 


L, WW. E. 


(3) 编写 应 用 


是 Web 应 | 


表单 和 行为 、CSS Ë 


AS by LS HAS A AAMAS A AP 
完成 其 中 静态 内 容 的 设计 。 利 


Mo 


Lp Aye 
式 等 ， 


程序 。 根 据 Web 应 


计 的 静态 页 面 上 添加 动态 内 容 。 


(4) 调试 应 | 


程序 。 


c" 


程序 的 需求 构建 应 用 


在 Web 应 | 


用 户 需 要 
动态 网 页 面 放 入 真 


MA EIT Web 应 用 
正 的 Web 站 点 中 进行 测试 。 


利用 Dreamweaver 进行 动态 网 页 的 玫 
动态 站 点 ， 以 协助 设计 者 对 本 地 和 远程 站 点 进行 有 效 的 组 织 管 理 


[Dj 2 1 


22 ”站 点 的 建立 与 管理 


F 发 ， 首 先 应 根据 网 页 的 工作 流程 和 需要 建立 一 个 


定义 本 地 站 点 
本 地 站 点 是 建立 在 计算 机 上 的 ， 包 括 所 有 特定 网 站 的 文件 夹 、 资 源 和 文件 的 站 点 。 在 


开发 Web 应 用 


RIP ZA, WA 
启动 Dreamweaver, 4T 


E 构 建 本 地 站 点 。 


AA 


{oon E» 
站 点 


“ 管 理 


全 LE» 
站 点 


HB ^x o 


部 分 。 在 
| Dreamweaver 3% 


j 户 可 以 轻松 完成 静 


程序 中 的 数据 处 理 程序 ， 这 
程序 的 核心 内 容 。 如 数据 库 设 计 、 绑 定数 据 源 、 构 建 服务 器 行为 等 ,在 先前 设 


] 程 序 设计 过 程 中 ， 程 序 设计 可 能 会 出 现 各 种 错误 ， 
程序 ， 找 出 其 中 的 错误 ,然后 修改 、 排 除 错误 ,然后 再 将 


和 网 页 应 用 程序 的 调试 。 


单 击 弹 出 的 对 话 框 中 的 “新 建 ” 


按钮 ， 在 弹出 的 下 拉 菜 单 中 执行 “站 点 ”命令 ， 出 现 “ 站 点 定义 ”对 话 框 ， 单 击 “ 高 级 ” 


选项 卡 ， 


然后 从 “分 类 ”列表 中 选择 “本 地 
站 点 名 称 ， 新 建站 点 的 名 称 。 


i d i 填写 如 下 信息 : 


该 名 称 仅 供 参 考 ， 并 不 出 现在 浏览 器 中 。 


本 地 根 文 件 夹 : 本 地 站 点 根 目录 的 位 置 。 单 击 其 后 的 文件 夹 按钮 从 磁盘 上 定位 该 目录 ， 或 


直接 在 文本 框 中 输入 绝对 地 址 。 


默认 图 像 文件 夹 : 本 地 站 点 图 像 文件 的 默认 保存 位 置 。 


链接 相对 于 : 为 链接 创建 的 文档 路 径 的 
HTTP 地 址 : 本 站 点 的 地 址 ， 以 便 Dreamweaver 对 文档 中 的 绝对 地 纪 
尚 没 有 申请 域名 ， 则 可 以 暂时 输入 一 个 容易 记忆 的 名 称 ， 在 将 来 申请 域名 后 ， 再 用 了] 


域名 进行 奉 换 。 


局 ) 
清晰 地 反映 当前 站 点 的 结构 。 
设置 各 选项 后 ， 单 击 对 话 框 中 的 “下 
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类 型 


区 分 大 小 写 的 链接 : 检查 站 点 文件 的 链接 时 ， 


JET: 创建 本 地 站 点 的 缓存 ， 以 加 快 站 点 中 链接 更 新 的 速度 , 同时 在 站 点 地 图 


区 分 大 小 写 。 


文档 相对 路 径 或 根 目录 相对 路 径 。 


C 确 


上 进行 校 验 ， 如 果 目 前 


的 


模式 中 ， 


和 定 ” 按 钮 ， 返 回 “ 站 点 管理 ”对 话 框 ， 此 时 对 话 


框 里 列 出 了 刚刚 创建 的 本 地 站 点 。 
实际 上 还 可 以 将 磁盘 上 现 有 的 文档 组 织 当 作 本 地 站 点 来 打开 ， 只 需要 在 “本 地 根 文件 


Je” 文本 框 中 填 入 相应 的 根 目录 信息 即 可 。 利用 该 特性 ,可 以 对 现 有 的 本 地 站 点 进行 管理 。 
如 果 要 将 本 地 站 点 上 传 到 远 端 服务 器 ， 还 要 设置 远程 信息 。 有 关 操 作 见 本 章 “ 网 页 上 
传 ”部 分 的 介绍 。 
开发 ASP.NET 网 站 时 , 创建 的 ASPNET 网 页 保存 在 个 人 计算 机 上 , 要 测试 这 些 页 面 ， 
还 需要 在 本 地 计算 机 上 安装 Web 服务 器 。 很 多 网 站 托管 公司 使 用 Microsoft Internet 信息 服 
务 (Microsoft Internet Information Server，IIS)， 这 是 一 个 专业 级 Web 服务 器 软件 ， 用 于 处 
理 Microsoft 动态 网 页 技术 。 使 用 Dreamweaver 开发 动态 网 站 时 , 通常 也 使 用 IS 作为 测试 
网 站 的 Web 服务 器 ， 该 服务 器 能 与 Windows 系列 操作 系统 无 颖 结合 ， 且 操作 简单 。 
设置 测试 服务 器 的 步骤 如 下 : 
C1) 选择 “站 点 ”/“ 管 理 站 点 ”命令 ， 在 弹出 的 对 话 框 中 选择 为 应 用 程序 定义 的 站 
点 并 单 击 “编辑 ”按钮 ， 打 开 “ 站 点 定义 ”对 话 框 。 
(2) 在 “分 类 ”列表 框 中 选择 “测试 服务 器 ”选项 。 
(3) 在 “服务 器 模型 ”后 面 的 下 拉 列 表 框 中 选择 网 页 开发 所 用 的 脚本 语言 ， 本 书 选 
JE ASP.NET VB。 在 “访问 ”下 拉 列 表 框 中 选择 测试 服务 器 所 在 的 位 置 ， 本 书 选择 “本 地 / 
网 络 ”。 在 “测试 服务 器 文件 夹 ” 后 的 文本 框 中 输入 服务 器 文件 夹 的 路 径 ， 本 书 选择 
Cxnetpub\wwwroot\. E “URL 前 级 ”文本 框 中 输入 测试 站 点 根 文件 夹 的 虚拟 路 径 ， 本 书 
选择 http://localhost/。 
读者 需要 注意 的 是 ， 其 中 \Inetpub\wwwroct\ 目 录 是 安装 完 IS 后 系统 自动 生成 的 目录 。 
(4) 单 击 “ 确 定 ” 按 钮 关闭 该 对 话 框 ， 完 成 操作 。 
\ iE: 
© 如 果 发 布 站 点 是 本 地 计算 机 ， 可 以 在 “URL 前 经 ”文本 框 中 输入 http: //1 
ocalhost/ 后 加 入 站 点 名 。 有 时 候 创 建 的 动态 网 页 面 在 动态 数据 窗口 可 以 实时 浏览 ， 但 是 
上 传 到 服务 器 后 ， 在 浏览 器 中 则 不 能 正常 显示 ， 这 是 初学 者 常常 感到 困惑 的 地 方 。 此 时 可 
以 在 “URL 前 缀 ”文本 框 中 输入 http: //127. 0. 0.1/， 即 可 在 浏览 器 中 正常 显示 。 
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尽管 使 用 Dreamweaver 可 以 便捷 地 创建 网 站 ,开发 动态 网 站 ,但 笔者 建议 初学 者 使 用 
Visual Studio 创建 ASP.NET 网 站 ， 该 工具 提供 了 功能 强大 的 网 页 编辑 器 (包含 WYSISYG 
编辑 模式 和 HTML 编辑 模式 )， 使 用 户 可 以 使 用 Visual Basic 编写 动态 网 页 的 代码 ， 此 外 ， 
该 工具 还 提供 了 一 个 用 于 本 地 测试 的 轻 量 级 Web 服务 器 ASPNET Development Web 
Server, 无 需 安装 Internet 信息 服务 (IIS)， 即 可 提供 测试 和 调试 ASPNET 网 页 所 需要 的 全 
部 功能 。 站 点 准备 就 绪 后 ， 可 以 使 用 内 置 的 Copy Web 工具 将 其 发 布 到 主机 上 。 


下 ‘Visual Web Developer 学 习 版 中 未 提供 生成 网 站 功能 。 
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[2 ”2 修改 站 点 


在 创建 了 站 点 之 后 ， 还 可 以 对 站 点 属性 进行 编辑 。 执 行 “ 站 点 ”/“ 管 理 站 点 ”命令 ， 
在 弹出 的 站 点 管理 对 话 框 中 选择 需要 编辑 的 站 点 ， 然 后 单 击 “ 编 辑 ” 按 钮 ， 在 弹出 的 站 点 
定义 对 话 框 中 重新 设置 站 点 的 属性 。 编辑 站 点 时 弹出 的 对 话 框 和 创建 站 点 时 弹出 的 对 话 框 
完全 一 样 ， 在 此 不 再 袭 述 。 

如 果 单 击 “ 有 删除 ”按钮 ， 可 删除 选中 站 点 。 需 要 注意 的 是 ， 本 操作 不 能 通过 执行 “ 编 
辑 ”/“ 撤 消 ” 命 令 的 办 法 恢复 。 


| -— 提示 : 删除 站 点 实际 上 只 是 删除 了 Dreamweaver 同 该 本 地 站 点 之 间 的 关系 。 但 是 实 
| 际 的 本 地 站 点 内 容 ， 和 包括 文 件 夹 和 文档 等 ， 都 仍然 保存 在 磁盘 相应 的 位 置 上 。 可 以 重新 | 
| | 创 建 指 向 其 位 置 的 新 站 Ba _ 重新 对 其 进行 管理 。 | 


ue 2.3 管理 站 点 文件 


论 是 创建 空白 的 文档 ， 还 是 利用 已 有 的 文档 构建 站 点 ， 都 可 能 会 需要 对 站 点 中 的 文 
a 利用 文件 窗口 ， 可 以 对 本 地 站 点 的 文件 夹 和 文件 进行 创建 、 删 除 、 
移动 和 复制 等 操作 。 

如 果 要 在 本 地 站 点 中 创建 文件 或 文件 夹 ， 执 行 以 下 步 又: 

(OD 执行 “窗口 ”/“ 文 件 ” 命 令 ， 打 开 文件 管理 面板 。 

(2) 单 击 左边 的 下 拉 列 表 选 择 需要 的 站 点 。 然 后 单 击 文件 管理 面板 的 选项 菜单 ， 执 
行 “ 文 件 ”/“ 新 建文 件 ” 或 “新 建文 件 夹 ”命令 。 

G) 单 击 新 建文 件 或 文件 夹 的 名 称 ， 使 其 名 称 区 域 处 于 可 编辑 状态 ， 然 后 输入 新 的 
名 字 。 在 输入 文件 名 时 ， 其 后 一 定 要 带 有 网 页 文件 的 扩展 名 ， 如 htm. html 或 asp, aspx 


eras 
A o 


C3 (4) 双击 新 建 的 文件 即 可 在 Dreamweaver 中 打开 该 文件 ， 并 添加 页 面 内 容 。 同 样 ， 
^| 对 于 已 存在 的 网 页 文件 ， 也 可 以 通过 双击 将 其 打开 进行 编辑 。 

0) (5) 如 果 不 需 要 某 些 文件 或 文件 来 了 ， 在 文件 管理 面板 中 选中 这 些 文件 或 文件 来， 
FOS | 然后 按 下 Delete 键 ， 并 单 击 弹 出 的 确认 对 话 框 中 的 “是 ”按钮 ， 即 可 删除 选中 的 文件 或 文 
Ct | HR. 

D e 
FS | i | 
ce i = 提示 :5 删除 站 点 的 操作 不 同 ， 这 种 对 文件 或 文件 夹 的 删除 操作 ， 会 从 磁盘 上 真正 | 
NO] | 


| 删除 相 应 的 文件 或 文件 夹 。 


2.3 ”制作 基础 网 页 


Dreamweaver CS6 是 Adobe 公司 推出 的 一 款 集 网 页 制作 和 网 站 管理 于 一 体 的 所 见 即 所 
得 的 网 页 编辑 器 ， 采 用 了 多 种 先进 技术 ， 利 用 它 能 够 快速 高 效 地 创建 极 具 表 现 力 和 动感 效 


果 的 网 页 ， 制 作 跨 平 台 、 跨 浏览 器 的 充满 动感 的 网 页 。 


[Ll.3.1 编辑 网 页 文本 


网 页 上 的 信息 大 多 都 是 通过 文字 来 表达 的 ， 它 们 通过 不 同 的 排版 方式 、 不 同 的 设计 风 


格 排列 在 网 页 上 ， 并 提供 丰富 的 信息 。 在 Dreamweaver CS6 中 输入 文本 与 普通 的 文本 处 理 


软件 类 似 ， 最 简单 的 方法 就 是 直接 在 光标 闪烁 处 键入 文字 ， 也 可 以 从 其 他 文档 中 
放 或 导入 文本 。 若 要 在 文档 中 添加 文本 ， 可 以 执行 以 下 操作 之 一 : 
@ ”直接 在 Dreamweaver 的 文档 窗口 光标 所 在 位 置 输入 文本 内 容 。 


By). Ha 


€ ”在 其 他 的 应 用 程序 或 文档 中 复制 文本 , 然后 切换 回 Dreamweaver 文档 窗口 ， 将 光 


标 插 入 到 要 放置 文本 的 地 方 ， 再 选择 “编辑 ”/“ 粘 贴 ”命令 。 
€ ”通过 “文件 ”/“ 导 入 ”命令 导入 其 他 文档 中 的 文本 。 
输入 文本 后 ， 可 以 使 用 图 2-2 所 示 的 属性 面板 对 文本 的 字体 、 字 号 、 颜 色 、 相 


性 进行 设置 。 应 用 HTML 样式 时 ，Dreamweaver 会 将 te NT HIE SCH) HTML 代 


fH. NH] CSS FEX, Dreamweaver 会 将 属性 写 入 文档 头 或 单独 的 样式 表 中 。 


属性 = 
<> HINL 目标 规则 | .nore A:hover v v| | 字体 (0) RË, Arial Helvetica, sans-seri v| B Z [E|& BS 
| Es css | 编辑 规则 CSS 面板 P) ESTEE "| | a i #56616d 


TERE.. 


图 2-2 “属性 ”面板 


EF 式 等 


= 


单 击 面板 左上 角 的 SP ML ny Escss 按钮 ， 即 可 在 HTML 样式 和 CSS 样式 之 间 进 行 切 


换 。 下 面 简要 说 明 CSS 样式 所 对 应 的 各 个 属性 的 功能 。 


目标 规则 : 当前 选中 文本 已 应 用 的 规则 ， 或 在 CSS 属性 检查 器 中 正在 编辑 的 规则 。 


读者 也 可 以 使 用 “目标 规则 ”下 拉 菜 单 创 建新 的 CSS 规则 、 新 的 内 联 样式 或 将 现 有 


类 应 用 于 所 选 文本 。 在 “目标 规则 ”下 拉 列 表 中 选择 一 个 规则 ， 即 可 应 用 于 当前 选中 的 文 


本 。 


编辑 规则 : 单 击 该 按钮 可 以 打开 “CSS 规则 定义 ”对 话 框 对 目标 规则 进行 修改 , 或 打开 “新 


建 CSS 规则 ”对 话 框 定义 新 规则 。 


CSS 面板 : 单 击 该 按钮 可 以 打开 “CSS 样式 ”面板 ， 并 在 当前 视图 中 显示 目标 规则 的 属 


性 。 
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CS6 经 典 网 站 开发 从 入 门 到 精通 


[2.3.2 插入 特殊 字符 、 日 期 和 水 平 线 


在 输入 文本 的 时 候 ， 可 能 会 遇 到 键盘 不 能 直接 输入 的 字符 。Dreamweaver 为 读者 提供 
了 部 分 常见 的 特殊 字符 。 切 换 到 “插入 ”面板 中 的 “文本 ”面板 ， 就 可 以 看 到 Dreamweaver 


自 带 的 特殊 字符 ， 如 图 2-3 所 示 。 


插入 其 他 字符 =) 
插 和 :| | LE J 
ilelslx| 8 o| «|-| © 
2 i| d B| f = A »l é À Á NE NN 

有 | A| AJ A| Æ| ç| È| É| 下 | E| i 

í|i| t| N] Oo] 6] 6] 6] 6J a] 9 

ú| 站 | | 8| al a] al al al ale 

gl] el) él] El] ei) vial) ai) ai] apo 

6| 6] 6] 6] +] o/] a] a] a] al y 

WF lm lel] TIPE il «Ig 

ý 。| -| 一 ™| >| e| Y 

图 2-3 “文本 ”面板 
Jh "edd. 其 他 字符 ”按钮 图 3 打开 “插入 其 他 字符 ”对 话 框 ， 可 以 选择 更 多 的 特 


殊 字符 。 选 择 一 个 字符 后 ， 对 话 框 顶部 的 “ 


在 特殊 字符 菜单 中 还 包括 了 “换行 符 ” 


“插入 ”文本 框 中 将 显示 该 字符 的 实体 参考 。 


BAR RITE” ar, ZE Dreamweaver 


中 ,一 行 结束 的 时 候 文 本 将 自动 换行 。 如 果 要 在 段落 中 实现 强 
结构 ， 就 必须 插入 换行 符 ， 或 按 Shift + Enter 键 。 


使 用 插入 换行 符 换行 和 直接 按 Enter 换 


多 个 连续 的 空格 ” 复 选 框 , 然后 按 下 键盘 上 


«0 4e3deu) 


在 Dreamweaver 中 读者 可 以 很 轻松 地 月 


行 在 浏览 器 视图 中 的 区 别 如 


图 2-4 不 同 换行 方式 在 浏览 器 中 的 显示 


中 换行 的 同时 不 改变 段落 的 


图 2-4 所 示 。 


默认 情况 下 ，HTML 将 压缩 空白 ， 使 字符 之 间 只 包含 一 个 空格 ， 若 要 在 文档 中 插入 连 
续 空格 ， 可 以 执行 “编辑 ”/“ 首 选 参数 ” /“ 和 常规” 命令， 在 弹出 的 对 话 框 中 勾 选 “允许 


的 空格 键 , 即 可 在 页 面 中 插入 多 个 连续 的 空格 ; 


读者 也 可 以 多 次 单 击 “ 不 换行 空格 ” 些 -， 或 按 Ctrl + Shift + 空格 键 ， 在 指定 位 置 插入 多 


个 连续 空格 。 


进行 日 期 更 新 。 其 操作 如 下 : 
(1) 将 插入 点 放 在 文档 中 需要 插入 日 期 的 位 置 。 


日 任意 格式 在 文档 中 插入 当前 时 间 ， 同 时 还 可 以 
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(2) 切换 到 “ 常 | 


”插入 面板 。 


(3) 单 击 面 板 中 的 图 按钮 ， 在 弹出 的 “插入 日 期 ”对 话 框 中 指定 星期 、 日 期 、 时 间 


的 显示 方式 。 
(4) 选中 “储存 时 自动 更 
(5) Hic H 
在 对 页 面 内 容 分 栏 时 ， 
作 步 骤 如 下 : 
CD 将 插入 点 放 在 文档 中 需要 水 平 线 的 位 置 。 
(2) FFF “AN” FA TO, TE 


新 ” 复 选 框 ， 


常会 用 


到 水 平分 隔 线 。 


则 插入 的 日 期 在 每 次 保存 文档 时 自动 更 新 。 
上 定 ” 按 钮 关闭 对 话 框 ， 即 可 在 文档 中 插入 当前 的 日 期 。 
在 Dreamweaver 中 插入 水 平 线 的 一 般 操 


插入 水 平 线 之 后 ， 用 户 还 可 以 在 对 应 的 属性 面板 上 修改 水 平 线 的 届 性 。 


(ll.3.3 使 用 图 像 
图 像 不 但 能 美化 网 页 ， 而 且 与 文本 相 比 ， 


能 够 更 直观 地 说 明 


问题 ， 使 表达 的 意思 


=H 


JOR. Æ Dreamweaver 文件 中 插入 图 片 时 ,Dreamweaver 会 自动 在 网 页 的 HTML 源 代 人 码 中 


加 入 相应 的 参数 。 为 了 保证 参数 的 正确 ， 图 片 文件 必须 保存 在 当 
的 图 片 不 在 当前 站 点 目录 中 ，Dreamweaver 将 询问 是 


档 中 插入 图 像 的 一 般 操作 步骤 如 下 : 
CD 将 光标 放 到 文档 中 需要 插入 图 像 的 位 置 。 
(2) 执行 “插入 ”/“ 图 像 ”命令 ， 或 单 击 “ 
noo 后 ， 
往往 还 要 对 图 像 的 一 些 属性 进行 
过 图 像 属 性 控 秆 
如 图 


LAB RAE, 


E 
=] 


2-5 所 示 ， 其 功能 如 下 : 


Dreamweaver 会 的 下 但 在 实际 应 | 
如 大 小 、 
iMi tae 选中 一 个 图 像 之 后 ， 


TUE HB E 


a] » 


ti cep f 8 :按钮 。 


jm 


文档 窗口 的 下 方 会 出 现 图 像 控 表 


前 站 点 目录 中 。 如 果 所 用 
上 到 当前 站 点 目录 下 。 在 文 


, 


位 置 、 对 齐 等 等 。 这 些 操作 可 以 通 
I 面板 ， 


属性 


<2 ENS, 73K 。” 源 文件 G) ses/500_6Va15133. jpg gO Ac 


n | 链接 中 | |9o0 # 国 Po N 
地 图 0 | B® 
fk] DOW 原始 | .. ]& 


v| — seo |[px 
€ A 高 0 B33 ||px v|* 


图 2-5 图 像 控 制 


面板 


ID: 在 该 文本 框 中 输入 图 像 的 名 称 ， 以 后 就 可 以 使 ) 


j 于 设置 图 像 链接 的 网 页 文件 的 地 址 。 
用 于 设置 多 
的 四 个 按钮 ， 用 于 制作 映射 图 。 
目标 ， 用 于 设置 图 像 打 开 的 链接 文件 显示 的 位 置 。 


脚本 语言 对 它 进行 引用 。 


象 的 说 明 性 内 容 ， 可 以 作为 图 像 的 设计 提示 文本 。 


原始 : 用 于 设置 一 幅 显 示 在 该 图 像 前 


设计 者 在 该 处 喜欢 设置 一 幅 与 主 图 像 内 容 一 样 
i bh 


以 快速 了 解 图 像 的 信息 


血 的 代表 图 像 ， 用 来 快速 显示 主 图像 的 内 容 。 大 部 分 


的 黑白 图 像 或 小 图 像 ， 这 样 用 户 在 浏览 时 可 
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单 击 该 按钮 打开 
图 片 。 


TESE 


: 改变 图 
: 改变 图 


Piet hs 


ARIT AFE NRE 
RAL” ute, AER E 


£z Bh 


LM 


网 站 开发 从 入 门 到 精通 


Va 


图 像 。 


“图 


当 图 片 大 小 被 调整 后 此 按钮 可 用 于 增加 或 减少 图 
片 的 亮度 和 对 比 度 。 
片 内 部 边缘 的 对 比 度 。 
在 网 页 上 还 经 常会 看 到 翻转 医 


像 处 理 软件 ， 以 编辑 当前 选中 的 


Z] 


Z] 


像 ， 所 谓 翻转 图 


一 幅 图 


像 切换 成 男 一 幅 攻 
于 建立 导航 按钮 。 在 文档 中 创建 翻转 攻 
(1) 选择 “插入 ” / “图 


Va 


像 , 


同时 可 以 通过 单 击 该 图 
图 像 的 操作 步骤 如 下 : 
/“ 鼠 标 经 过 图 


像 对 象 ” 


片 中 的 像素 以 提高 医 


像 ， 就 是 当 光 标 移动 到 该 
像 ， 打 开 链 接 的 网 页 。 


像 进 行 优化 设置 。 


片 质量 。 


DS 


像 上 面 时 ， 
该 功能 主要 用 


像 ”， 或 单 击 “常用 ”插入 面板 上 的 


“鼠标 经 过 图 像 ” 的 图 标 国 ， 弹 出 “插入 鼠标 经 过 图 像 ”设置 面板 ， 如 图 2-6 所 示 。 


LES i Sup 


按 下 时 ， 前 往 的 URL: | 


(2) 在 “图 


(3) 在 “原始 区 
“鼠标 经 过 图 
ho FA 
Fe RP ASA], Dreamweaver 会 自 

(5) 选中 “ 预 载 鼠 标 经 过 图 
像 的 下 载 速度 。 
(6) 在 “替换 文本 ”文本 框 中 输入 文本 。 在 浏览 器 中 光标 掠 过 民 


(4) 在 
像 时 切换 显示 的 图 


图 


入 到 内 存 中 ， 可 以 加 


些 文本 。 


(7) 在 “ 按 下 时 ， 前 人 
览 时 单 击 翻转 图 像 时 ， 会 打 ] 


像 名 称 ” 
R” SCA TEE Hn AN Jet s 


图 像 名 称 : 
原始 图 像 : 
鼠标 经 过 图 像 : 


预 载 鼠 标 经 过 图 像 


aare [ 


图 2-6 “插入 鼠标 经 过 图 像 ”设置 面板 
文本 框 中 输入 图 像 的 名 称 。 


像 


Va 


像 
”文本 框 中 输入 翻转 


医 


路径 及 文件 名 ， 即 初始 显示 的 攻 
像 的 路 径 及 文件 名 ， 即 鼠标 经 过 原始 


Va 


f. 


RE 


LL]. 3.4 添加 超级 链接 


超 链 级 接 (HyperLink〉 是 网 页 与 网 页 之 间 联 系 的 纽带 。 通 过 超级 链接 的 方式 可 以 使 


op UR Ra E 


Va 


像 有 相同 的 尺寸 。 如 


动 将 翻转 图 


像 的 尺寸 调整 成 原始 医 
像 ” 选 项 ， 表 示 在 用 户 浏 览 该 网 页 时 ， 会 将 翻转 图 


Z] 


像 的 尺寸 。 


像 装 


像 时 ， 就 会 显示 这 


ER] URL” 文 本 框 中 输入 链接 的 文件 路 径 及 文件 名 ， 表 示 在 浏 
于 链接 的 网 页 。 


网 站 中 众多 的 页 面 构成 一 个 有 机 整体 ， 使 访问 者 能 够 在 各 个 页 


是 一 段 文 本 ， 一 幅 图 


像 或 其 人 


也 网 页 元 素 ， 当 在 浏览 器 中 单 击 这 


掉 之 间 跳 转 。 超 级 链接 可 以 
些 对 象 时 ， 浏 览 器 可 以 根据 


指示 载 入 一 个 新 的 页 面 或 者 转 到 页 面 的 其 他 位 置 。 

超级 链接 通常 都 在 属性 设置 面板 的 “链接 ”文本 框 中 进行 设置 。 操 作 步 又 如 下 : 

(1) 在 文档 窗口 中 选中 需要 建立 链接 的 文本 或 图 像 。 

(2) 打开 属性 设置 面板 。 在 属性 设置 面板 中 单 击 的 “链接 ”后 的 文件 夹 图 标 ， 在 弹 
出 的 文件 框 中 选择 一 个 合适 的 文件 ， 或 在 “链接 ”文本 框 中 直接 输入 文件 路 径 。 

拖拉 饮 图 标 也 可 以 建立 超级 链接 。 选 中 需要 建立 链接 的 文本 或 图 像 后 ， 在 “文件 ” 面 
板 左上 角 的 下 拉 列 表 中 选择 要 链接 的 文件 所 在 的 站 点 , 并 找到 该 文件 .然后 用 鼠标 拖拉 铝 图 
标 ， 当 指 到 要 链接 的 文件 时 ， 该 文件 名 上 会 显示 一 个 选择 框 。 释 放 鼠 标 后 ， 则 链接 文件 的 
地 址 会 显示 在 “链接 ”文本 框 内 。 

(3) 在 “目标 ”下 拉 列 表 框 中 选择 被 链接 文档 的 载 入 位 置 。 

操作 完成 后 ， 可 以 看 到 被 选择 的 文本 变 为 蓝 色 ,并且 带 有 下 划 线 ， 如 图 2-7 所 示 。 


图 2-7 添加 了 超级 链接 的 文本 和 图 像 


如 果 为 图 像 添加 了 超级 链接 ， 在 图 片 周围 将 显示 一 个 蓝 色 的 边框 ， 如 图 2-7 所 示 。 如 
果 不 希 望 在 页 面 中 显示 蓝 色 边框 , 则 要 选中 图 片 , 新 建 一 个 CSS 规则 , 将 边框 值 设置 为 0。 
在 网 页 中 还 有 一 种 常用 的 链接 ， 即 电子 邮件 链接 。 当 浏览 者 单 击 电子 邮件 链接 时 ， 可 
即时 打开 浏览 器 默认 的 电子 邮件 处 理 程序 ， 收 件 人 邮件 地 址 由 电子 邮件 链接 中 指定 的 地 址 
自动 更 新 ， 无 需 浏览 者 手工 输入 。 创 建 邮件 链接 的 步骤 如 下 : 
(1) 选中 需要 作为 邮件 链接 的 文本 。 
(2) 打开 属性 设置 面板 。 在 属性 设置 面板 中 的 “链接 ”文本 框 中 输入 邮件 地 址 。 
需要 注意 的 是 ， 在 “链接 ”文本 框 中 输入 邮件 地 址 时 ， 需 要 在 邮件 地 址 前 面 添加 
“mailto:”， 表 示 该 超级 链接 是 邮件 链接 ， 例 如 : mailto:webmaster@1234.com。 
还 可 以 执行 “ 播 入 ”/“ 电 子 邮 件 链接 ”菜单 命令 ， 在 弹出 的 “电子 邮件 链接 ”对 话 框 
中 设置 链接 文本 及 链接 目标 。 
在 浏览 长 篇 文章 、 技术 文件 等 长 篇 幅 的 内 容 网 页 时 , 使 用 销 点 链接 文章 的 每 一 个 段落 ， 
可 以 方便 地 查看 网 页 内 容 ， 单 击 某 一 个 超级 链接 即 可 转 到 同一 网 页 的 特定 段落 。 创 建 到 命 
名 销 记 的 链接 的 具体 步骤 如 下 : 


CD 将 光标 放 在 和 欲 设 置 锚 点 的 位 置 ， 切 换 到 “常用 ”插入 面板 。 
(2) 单 击 插入 面板 上 的 “命名 锚 记 ”图 标题 ， 在 打开 的 “命名 锚 记 ”对 话 框 中 输入 
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锚 点 名 称 。 


ua 注意 : 

RUN 锚 点 名 称 只 能 包含 小 写 的 ASCII 字母 和 数字 ， 且 不 能 以 数字 开头 。 

(3) 单 击 “ 确 定 ” 按 钮 ， 即 可 在 指定 位 置 添加 一 个 命名 锚 记 。 

(4) 选择 作为 超级 链接 的 文字 ， 在 属性 设置 面板 的 “链接 ”文本 框 中 输入 锚 点 的 名 
称 。 

需要 注意 的 是 ， 在 “链接 ”文本 框 中 输入 锚 点 名 称 时 ， 需 要 在 锚 点 名 称 前 面 添加 一 个 
特殊 的 符号 “#?”。 例 如 : #top， 其 中 ，top 为 命名 锚 记 的 名 称 。 

除了 可 以 创建 邮件 链接 之 外 ,使 用 Dreamweaver 还 可 以 创建 空 链 接 和 脚本 链接 。 空 链 
接 通常 用 于 向 页 面 上 的 对 象 或 文本 附加 行为 。 例 如 ， 可 向 空 链接 附加 一 个 行为 ， 以 便 在 光 
标 滑 过 该 链接 时 会 交换 图 像 或 显示 AP 元 素 。 创 建 空 链接 的 步骤 如 下 : 

(1) 选择 欲 作为 空 链接 的 文本 或 图 像 ， 并 打开 属性 设置 面板 。 

(2) 在 属性 设置 面板 的 “链接 ”文本 框 中 输入 javascript:;， 要 注意 javascript 一 词 后 
依次 接 有 一 个 冒号 和 一 个 分 号 。 
脚本 链接 用 于 执行 JavaScript 代码 或 调用 JavaScript 函数 。 它 非常 有 用 ， 能 够 在 不 离 
开 当 前 Web 页 面 的 情况 下 为 访问 者 提供 有 关 某 项 的 附加 信息 。 脚 本 链接 还 可 用 于 在 访问 
者 单 击 特定 项 时 ， 执 行 计 算 、 验 证 表单 和 完成 其 他 处 理 任务 。 
在 第 (2) 步 中 如 果 指 派 了 动作 ， 即 可 创建 脚本 链接 。 例 如 : JavaScript:alert(' 您 好 ， 欢 
迎 浏览 我 的 个 人 主页 。')。 插 号 中 的 内 容 必须 使 用 单 引 号， 或 在 双 引 号 前 添加 反 斜 杜 ， 例 
如 ，JavaScript:alert(\" 您 好 ， 欢 迎 浏 览 我 的 个 人 主页 。\")。 
在 浏览 器 中 浏览 空 链接 或 脚本 链接 时 ， 将 鼠标 指针 移 到 空 链接 或 脚本 链接 上 ， 鼠 标 指 
针 变 为 手 形 ， 单 击 脚 本 链接 时 会 弹出 一 个 警告 枉 ， 显 示 “ 您 好 ， 欢 迎 浏览 我 的 个 人 主页 ” 

下 面 通过 一 个 实例 展示 文本 添加 与 设置 超级 链接 的 应 用 。 网 页 中 共有 三 首 诗 ， 三 首 诗 
之 间 用 水 平 线 分 隔 ， 效 果 如 图 2-8 所 示 。 


联系 作者 ;comey@163. net 
UHESISTR :http://mm. sina. com. cn 


or P213 31 


观 书 有 感 BB M 


观 书 有 感 
+H SF, 
天 光 云 影 共 徘徊 。 
问 渠 哪 得 清 如 许 ， 
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图 2-8 实例 效果 


CD 新 建 一 个 HIML 文件 。 


E 


(2) 执行 “修改 ”/“ 页 面 属性 ”命令 ， 在 弹出 的 对 话 框 中 设置 字体 大 小 为 16， 背 景 


Hte N#ESEDES. 
(3) 在 设计 视 
性 面板 上 的 “目标 规则 ”下 拉 列 表 


区 | 


F“ 新 建 CSS 规则 ”对 话 框 。 
(4) 在 对 话 框 中 指定 选择 器 类 


F 头 )， 规 则 定义 的 位 置 仅 限 该 文档 ， 然 后 单 击 “ 到 


中 输入 文字 “联系 作者 : 


中 选择 “新 CSS 规则 六 


comey@163.net， 选 中 “联系 作者 : ”， 在 属 
然后 单 击 “编辑 规则 ”按钮 打 


型 为 “类 ” 选择 器 名 称 为 .fontstylel (4 


设置 字体 大 小 为 16， 颜 色 为 #FEF6600。 


(5) 选中 


设置 字体 大 小 、 颜 色 ， 
面板 链接 框 中 输入 的 是 


(7) 在 页 


comey@163.net ” 
“mailto:comey@163.net”。 制作 邮件 链接 。 
(60 输入 文字 “链接 至 


以 及 链接 文本 。 


“http://www.sina.com.cn”. 


面 上 输入 词 诗 标题 、 页 内 超级 链接 地 址 和 诗词 


Fe T xen] 


pE” AHF 


| 新 浪 : http: did sina.com.cn”, WREE (3) ~ C50 步 的 方法 
F http://www.sina.com.cn Ji, ) PE 


只 体内 容 。 


FE 意 名 称 以 句点 


对 应 的 规则 定义 对 话 框 。 


性 面板 上 的 链接 文本 框 中 输入 


(8) 选中 “朱熹 名 作 欣 赏 ” 依照 第 (3) ~ (4) 步 的 方法 设置 字体 为 “华文 行 构 ”、 


KNA 24, MEN “#336666”, 
C9) 将 光标 定位 到 词 “ 观 书 有 感 ” 左 侧 ， 
入 另 两 条 水 平 线 。 

(10) 将 光标 定位 到 词 “ 观 书 有 感 ” 左 侧 ， 
(1D) 在 “ 锚 记 名 称 ” 文 本 框 输入 “cl1”， 然 后 单 击 “确定 
| 插入 锚 记 ， 锚 记名 称 分 别 为 c2 和 c3. 


入 水 平 线 。 同 样 方法 操 


的 方法 在 另 两 首 词 标题 左 侧 所 


且 对 齐 方 式 为 居 


芷 “常用 ”面板 上 单 击 水 平 线 按钮 量 ， 插 


Po?” LM 


重 入 锚 记 。 用 同样 


Jd "OW iB En dq. 


(120 选中 导航 部 分 的 “ 观 书 有 感 ” 文 字 。 在 属性 面板 上 的 链接 文本 框 中 输入 “#c1”。 


同样 方法 设置 “春日 ”和 “ 夜 十 ”的 页 内 链接 。 
(13) 保存 文件 。 按 F12 键 预览 页 面 效 


CSS 是 ne Style Sheets ER 
外 观 的 格式 化 
档 中 作为 外 
BL, AND FER AR HI 


IHE ASTE 


PER 


24 CSS 样式 表 


加 文件 ， 


ERK) 的 简称 ， 
EA. CSS 样式 可 以 定义 在 HTML 文档 的 标记 是 
有 更 好 的 易 用 性 和 扩展 性 。CSS 对 于 设计 者 来 说 是 一 
fF 式 定义 编写 在 文档 中 ， 可 以 将 所 有 有 关 文 档 的 柱 


脱离 出 来 ， 在 行 定义 ， 在 标题 中 定义 ， 


E Pe Va as B 
全 忽略 ， 这 是 以 前 的 HTML 不 能 做 到 的 。 
执行 [71 窗 口 » / “CSS FÉ 


“CSS 样式 ”面板 ， 如 图 2-9 所 示 。 


上 284 
是 一 组 能 


A 


空 制 文档 范围 中 文本 


至 作为 外 部 样式 文件 供 HTML 调用 。 
RAE, ASCH CSS 的 浏览 器 能 够 将 CSS HIR 


式 ” 命 命令 ， 或 单 击 属 ; 


面板 上 的 “CSS 


有 ,也 可 以 在 外 部 附加 文 


种 非常 灵活 的 


F 式 指定 内 容 全 部 


同时 在 定义 
f 式 定义 内 容 完 


面板 ”按钮 ， 即 可 打开 
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图 2-9 “CSS 样式 ”面板 


在 浮动 面板 上 可 以 选择 两 种 模式 的 视图 ， 选 择 “ 全 部 ”模式 ， 则 列 出 整 份 文件 的 CSS 
规则 和 属性 ， 选 择 “ 当 前 ”模式 ， 则 显示 当前 选取 页 面 元 素 的 CSS 规则 和 属性 。 


LL]. 4.1 创建 Css 样式 表 


在 Dreamweaver 中 创建 CSS 样式 表 的 操作 步骤 如 下 ; 
C1) 选择 “窗口 ”/“CSS 样式 ”命令 ， 打 开 “CSS 样式 ”面板 。 
(2) 单 击 “CSS 样式 ”面板 底部 的 新 建 样式 图 标 斩 ， 打 开 “ 新 建 CSS 规则 ”对 话 框 。 
(3) 在 “选择 器 类 型 ”下 拉 列 表 中 选择 样式 表 的 类 型 。 
€ A: 用 于 建立 一 种 自己 定制 的 样式 表 ， 可 以 在 整个 HTML 中 被 调用 。 
€ Wn: 用 于 重新 定义 一 个 HTML 标签 。 样 式 一 经 定义 就 在 整个 HTML 文件 中 通 
用 。 
@ ”复合 内 容 : 用 于 定义 组 合 样式 (两 个 或 两 个 以 上 CSS 元 素 组 合 ) 以 及 具有 特殊 序 
列 号 (ID) 的 样式 元 素 。 选 择 器 提供 了 四 种 给 定 的 组 合 样式 ， 通 过 对 这 4 个 元 素 
的 定义 可 以 非常 方便 地 制作 有 个 性 的 超级 链接 。 
€ ID: 仅 用 于 一 个 HTML 元 素 。 这 种 选择 符 应 该 尽量 少 用 ， 因 为 它 具 有 一 定 的 局 
限 。 指 定 ID 选择 器 时 ， 其 名 称 前 面 要 有 指示 符 “#”。 
(4) 在 “选择 器 名 称 ” 栏 输入 样式 的 名 称 ， 或 从 下 拉 列 表 中 选择 一 个 样式 名 称 。 
(5) 选择 样式 表 定 义 的 位 置 。 若 要 创建 外 部 样式 表 ， 选 择 “ 新 建 样式 表 文 件 ” Ar 
在 当前 文档 中 先入 样式 ， 则 选择 “ 仅 限 该 文档 ” 
(6) 定义 样式 类 型 后 ， 单 击 “确定 ” 按 钮 打开 层 悉 样式 表 设 置 面板 。 在 该 面板 中 设 
置 需要 的 样式 。 
CD 设置 完成 后 ， 单 击 “ 确 定 ” 按 钮 。 


[[l.4.2 链接 /导入 外 部 样式 表 


Z0 41e3deu) 


外 部 样式 表 是 一 个 包含 样式 规范 的 文本 文件 ,编辑 一 个 外 部 CSS 样式 表 会 影响 所 有 与 
之 相 链接 的 文档 。 链 接 / 导 入 一 个 外 部 样式 表 的 操作 步骤 如 下 : 
C1) Æ “CSS 样式 ”面板 中 单 击 负 按钮， 弹出 “链接 外 部 样式 表 ” 对 话 框 。 


(2) 在 “文件 /URL” 文 本 框 中 键入 外 部 CSS 样式 表 的 路 径 。 


(3) 选择 使 用 外 部 样式 表 的 方式 。 
9 “导入 ” 将 外 部 CSS 样式 表 的 信息 带 入 当前 文档 。 
€ “链接 ”只 读 取 和 传送 信息 ， 不 转移 信息 。 
虽然 这 两 种 方法 都 可 以 将 外 部 CSS 样式 表 中 的 所 有 样式 调用 到 当前 文档 中 ,但 “链接 ” 
可 以 提供 的 功能 更 多 ， 适 用 的 浏览 器 也 更 多 。 
(4) 单 击 “ 确 定 ” 按 钮 。 


[2.4.3 修改 CSS 样式 表 


Dreamweaver CS6 提供 了 多 种 方式 对 样式 表 进 行 修改 。 

€ ”在 “CSS 样式 ”面板 中 选中 要 修改 的 样式 后 单 击 底部 的 编辑 样式 图 标 @ o 

€ ”在 “CSS 样式 ”面板 中 双击 要 修改 的 样式 。 

此 外 , 利用 CSS 启用 / 禁用 功能 ， 开 发 人 员 可 以 直接 在 “CSS 样式 ”面板 注释 掉 或 重 
新 启用 部 分 CSS 属性 ， 并 可 直接 查看 注释 掉 特 定 属 性 和 值 之 后 的 页 面 效果 ， 而 不 必 直 接 
在 代码 中 做 出 更 改 。 
TE “CSS 样式 ”面板 的 属性 列表 中 选中 要 禁用 或 重新 启用 的 CSS 属性 ， 然 后 单 击 面板 
右 下 角 的 “禁用 全 /启用 css 属性 ”按钮 即 可 。 禁 用 CSS 属性 只 会 取消 指定 属性 的 注释 ， 
而 不 会 实际 删除 该 属性 。 


[Hb. 4.4 部 分 常用 的 属性 和 什 
(1) font-family 属性 : 用 于 指定 网 页 中 文本 的 字体 。 取 值 可 以 是 多 个 字体 , 字体 间 用 
im. Pu 
body,td,th(font-family: Georgia, Times New Roman, Times, serif;) 


(2) font-style 属性 : 用 于 设置 字体 风格 ， 取 值 可 以 是 : normal GHW) , italic R} 
体 ) BK oblique CUR) . fn: 


P{font-style: normal 


s. 


Hl(font-style: italic} 
(3) font-size 属性 : 用 于 设置 字体 显示 的 大 小 。 这 里 的 字体 大 小 可 以 是 绝对 大 小 
(xx-small、 x-small, small, medium, large, x-large. xx-large), HX} K/h Clarger. smaller), 


绝对 长 度 〔 使 用 的 单位 为 pr 像素 和 in- 英寸 ) 或 百分比 ， 默 认 值 为 medium。 例 如 : 


hl(font-size: x-large} 


o 


o(font-size: 18pt) 


li(font-size: 90%} 


stong{font-size: larger} 
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(4) font 属性 : 

以 空格 间隔 ， 例 如 : 
p{font: italic bold 16pt 华文 宋体 } 

(5) color 颜色 属性 : 允许 网 页 制作 者 指定 一 个 元 素 的 颜色 。 使 用 示例 : 


Hlí(color:black) 


] 作 不 同 字体 属性 的 略 写 ， 可 以 同时 定义 字体 的 多 种 属性 ， 各 属性 间 


— 


H3{color: #££0000} 
为 了 避免 与 用 户 的 样式 表 之 间 的 冲突 ， 背 景 和 颜色 属性 应 该 始终 一 起 指定 。 
(6) background-color 属性 : 背景 颜色 属性 设 定 一 个 元 素 的 背景 颜色 ， 取 值 可 以 是 颜 
色 代 码 或 transparent (透明 )。 使 用 示例 : 


body {background-color: white} 


hl(background-color: #000080} 
为 了 避免 与 用 户 的 样式 表 之 间 的 冲突 ， 无 论 任 何 背 景 闫 色 被 使 用 的 时 候 ， 背 景 图 像 都 
应 该 被 指定 。 而 大 多 数 情 况 下 ， background-image:none 都 是 合适 的 。 网 页 制作 者 也 可 以 使 
] 略 写 的 背景 属性 ， 通 常会 比 背 景 颜色 属性 获得 更 好 的 文 持 。 
(7) background-image 属性 : 背景 图 像 属性 设 定 一 个 元 素 的 背景 图 像 。 使 用 示例 : 


Ne 


M 


body{ background-image: url(/images/bg.gif) } 
为 了 那些 不 载 入 图 像 的 浏览 者 ， 当 定义 了 背景 图 像 后 ， 应 该 也 要 定义 一 个 类 似 的 背景 
颜色 。 


(8) background-repeat 属性 : 用 来 描述 背景 图 片 的 重复 排列 方式 ， 取 值 可 以 是 repeat 
QE X HA Y 轴 两 个 方向 重复 显示 图 片 ) repeat-x ( 沿 X 轴 方 向 重复 图 片 ) 和 repeat-y CIS 
Y 轴 方 向 重复 图 片 )。 使 用 示例 : 


body ( 


background-image:url (pendant .gif); 
background-repeat: repeat-y; 
} 
(9) background 背景 属性 : 用 作 不 同 背景 属性 的 略 写 ， 可 以 同时 定义 背景 的 多 种 属 
性 ， 各 属性 间 以 空格 间隔 。 使 用 示例 : 
P(background: url(/images/bg.gif) yellow ) 
(10) line-height 行 高 属性 ， 可 以 接受 一 个 控制 文本 基线 之 间 的 间隔 的 值 。 取 值 可 以 
是 normal、 数 字 、 长 度 和 百分比 。 当 值 为 数字 时 ， 行 高 由 元 素 字 体 大 小 的 量 与 该 数字 相 乘 
所 得 。 百 分 比 的 值 相对 于 元 素 字体 的 大 小 而 定 。 不 允许 使 用 负 值 。 行 高 也 可 以 由 带 有 字体 
大 小 的 字体 属性 产生 。 使 用 示例 : 


p{line-height:120% 
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[Ll.4.5 css 样式 应 用 实例 
下 面 通过 一 个 改变 鼠标 样式 的 实例 演示 CSS 样式 表 的 创建 方法 和 应 用 。 


kk 体 的 操作 步 


N 


又 如 下 : 

(D 执行 “修改 ”/“ 页 面 属性 ”命令 ， 弹 出 页 面 属性 对 话 框 。 

(2) 单 击 “ 浏 览 ”按钮 设置 背景 图 像 。 在 “重复 ”下 拉 列 表 中 选择 “不 重复 ”。 效 果 
如 图 2-10 所 示 。 

如 果 不 选 择 “ 不 重复 ”由 于 背景 图 像 没 有 填 满 整个 窗口 , Dreamweaver 会 自动 平 铺 ( 重 
复 ) 背景 图 像 。 


EN 


图 2-10 背景 重复 效果 

(3) 在 文档 窗口 中 输入 如 下 内 容 :“ 鼠 标 效 果 ”， 并 在 属性 面板 上 设置 该 段 文字 为 一 
级 标题 ， 然 后 在 文档 窗口 中 输入 如 下 内 容 :“ 请 把 鼠标 移 到 相应 的 位 置 查看 效果 。” 

(4) 单 击 “ 布 局 ”插入 面板 上 的 “绘制 AP DIV” 图 标 ， 在 文档 窗口 绘制 4 个 AP 元 
素 ， 然 后 在 对 应 的 属性 设置 面板 中 分 别 设置 它们 的 名 称 为 : apDiv1、apDiv 2、apDiv 3 及 
apDiv 4。 

(50 在 4 个 AP 元 素 中 分 别 输入 “文本 “等 竺 “指针 ”及 “求助 ” 通过 对 应 的 
辕 性 设置 面板 设置 字体 大 小 为 +3。 输 入 内 容 后 的 文档 显示 如 图 2-11 所 示 。 


鼠标 效果 
请 将 时 标 称 到 相应 的 位 置 查看 效果 


图 2-11 文档 窗口 显示 效果 


(6) 打开 “CSS 样式 ”面板 ， 新 建 CSS 样式 。“ 选 择 器 类 型 ”为 “ID ” 然后 在 “ 选 
择 嚣 名称” 文本 框 中 输入 #apDiv1。 


CD 设置 完成 后 单 击 “确定 ”按钮 。 在 弹出 的 对 话 框 中 单 击 样式 定义 面板 左 侧 的 “ 扩 
展 ” 分 类 。 
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(8) 在 “光标 ”下 拉 列 表 


本 的 形状 。 
(9) 通过 同样 


的 方法 为 其 


Dreamweaver CS6 


C10) 设置 完成 后 单 击 “ 确 
当 把 光标 移动 到 文字 “求助 ”上 时 ， 光 标 将 变 成 一 


按 F12 键 预 览 网 页 。 


定 ”按钮 关闭 对 话 框 ， 


移动 到 其 他 文本 上 时 ， 光 标 将 变 为 对 应 的 形状 。 


2.5 页 面 排版 


也 3 个 AP 元 素 设置 对 应 的 光标 形状 。 


经 典 网 站 开发 从 入 门 到 精通 
中 选择 “文本 ”， 表示 当 光标 移动 到 该 文本 上 时 变 为 选择 文 


返回 到 文档 窗口 。 然 后 保存 文件 ， 


虽然 网 页 的 主旨 是 传 反 


信息 ， 但 上 


问 者 ， 并 能 留 住 一 些 “ 挑 吻 


[Dj 5. 1 


表格 可 以 将 数据 、 文 本 、 图 片 等 网 页 元 素 规范 地 显 


”的 访问 者 。 本 节 将 介 


表格 布局 页 面 


Dreamweaver 中 的 页 


示 在 页 


有 上， 避免 杂乱 无 半 


个 问号 ; 当 把 光标 


4 有 当 网 页 布局 与 网 页 内 容 成 功 结合 时 ， 才 能 吸引 访 
面 布局 技术 。 


， 经 过 


格式 化 的 页 面 在 不 同 平台 ， 不 同 分 状 率 的 浏览 器 中 都 能 保持 布局 和 对 齐 。 但 它 有 一 个 小 小 
的 缺陷 ， 会 使 网 页 显示 的 速度 变 慢 。 这 是 因为 在 浏览 器 中 ， 文 字 是 从 服务 器 上 传 过 来 逐 行 
显示 的 ， 即 使 不 全 ， 它 也 会 将 传 到 的 部 分 显示 出 来 ， 而 使 用 表格 后 ， 一 定 要 
等 到 整个 表格 的 内 容 全 部 传 过 来 之 后 ， 才 能 在 客户 端的 浏览 器 上 显示 出 来 。 
1. 创建 表格 
(1) 打开 “常用 ”面板 ,然后 单 击 表格 图 标 国 ， 或 选择 “插入 ”/“ 表 格 ” 菜 单 命令 。 
(20 在 弹出 的 对 话 框 中 输入 表格 的 行 数 、 列 数 ， 指 定 表格 宽度 、 边 框 粗细 、 单 元 格 
边 距 和 间距 。 
G) 单 击 “确定 ”按钮 ， 即 可 在 页 面 指定 位 置 插入 一 个 表格 ， 如 图 2-12 所 示 。 
My first table 
Rae | 雪佛兰 RR 
车 型 对 比 | 
| 产品 报价 | 


使 


图 2-12 表格 效果 


ERKEK. KERKEE 
TREAT RON RE, 
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男 一 个 表格 的 单元 格 中 的 表 


但 其 宽度 受 它 所 在 单元 格 的 宽度 的 限制 。 
格 中 的 一 个 单元 格 ， 再 在 单元 格 提 


格 。 可 以 像 对 其 他 任何 表格 一 相 


I 


表格 。 例 如， 在 一 个 单元 格 中 插入 一 个 3 行 3 列 的 表格 ， 
表格 。 


就 形成 一 个 如 医 


上 述 方法 创建 的 表格 通常 不 符合 设计 需要 ,所 六 在 Dreamweaver 中 可 以 便捷 地 创 


EXT 


HA 


2-13 RANE 


2. 编辑 表格 


调整 表格 或 者 单元 格 的 大 小 、 


/“ 表 格 ” 命 令 的 子 菜单 实现 。 


(1) 选择 表格 元 


素 o 


图 2-13 KERT 


在 使 用 表格 布局 页 面 时 ， 常 常 需 要 对 表格 进行 修改 ， 如 删除 /插入 行 或 列 、 拆 分 表格 、 
单元 格 与 表格 的 复制 、 粘 贴 等 ， 这 些 操 作 可 以 通过 “修改 ” 


€ ”选择 整个 表格 。 将 光标 放置 在 表格 的 任 一 单元 格 中 ， 然 后 在 文档 窗口 底部 选择 


«table» bk id , 


或 选择 “修改 ”/“ 表 格 ”/“ 选 择 表格 ”命令 。 


€ ”选中 一 行 表格 单元 或 一 列表 格 单元 。 将 光标 放置 在 一 行 单元 格 的 左边 界 上 ， 或 将 


光标 放置 在 一 列表 格 单刀 


的 顶端 ， 出 现 黑色 箭头 时 单 击 鼠 标 ， 或 单 击 一 个 表格 单 


元 ， 横 向 或 纵向 拖 动 鼠标 


可 选择 一 行 或 一 列表 格 单元 。 


€ ”选中 多 个 单元 格 。 单 击 一 个 表格 单元 ， 然 后 按 住 Shift 键 单 击 男 一 个 表格 单元 ， 
所 有 和 矩形 区 域内 的 表格 单元 都 被 选择 。 按 住 Ctrl 键 , 单 击 多 个 要 选择 的 表格 单元 ， 


可 选中 多 个 不 连续 


卖 的 单元 格 。 


(2) 合并 单元 格 。 选 中 要 合并 的 两 个 或 多 个 单元 格 ， 选 择 “修改 ”/“ 表 格 ”/“ 合 并 


单元 格 ” 命 令 。 


(3) 拆 分 单元 格 。 选 中 需要 拆 分 的 单元 格 ， 然 后 选择 “修改 ”/“ 表 格 ”/“ 拆 分 单元 


格 ” 命 令 。 


(4) 复制 /粘贴 单元 格 。 选 择 一 


个 或 多 个 连续 的 ， 并 且 形 状 为 矩形 的 单元 格 ， 单 击 鼠 


标 右键 ， 在 弹出 的 快捷 全 单 中 执行 “复制 ”命令 。 然 后 在 要 粘贴 单元 格 的 位 置 单 击 鼠 标 右 


WE, WEEE "RS" d. 


局 相同 。 如 复制 或 剪 切 了 一 块 4x3 


3. 表格 布局 实例 
下 面 通 过 一 个 实 侈 


1 让 读者 更 清 


选择 粘贴 目标 单元 格 时 ， 单 元 格 的 布局 应 与 剪贴 板 上 的 单元 格 布 


的 单元 格 ， 则 应 该 选择 另 一 块 4x3 的 单元 格 烙 贴 。 


楚 地 认识 表格 布局 的 操作 方法 。 本 例 的 具体 步骤 如 下 : 


(1) 新 建 一 个 Dreamweaver CS6 文档 。 


(2) 在 “常用 » 


中 第 二 行 单元 格 ， 使 用 


御 板 中 单 击 图 按钮 ， 在 文档 中 插入 一 个 两 行 一 列 的 表格 。 选 取 表格 
单元 格 属性 面板 中 的 拆 分 单元 格 按钮 站 将 其 拆 分 为 两 列 。 


(3) 选取 表格 中 的 左下 单元 格 ， 将 其 拆 分 为 三 行 ， 并 将 中 间 一 行 拆 分 为 三 列 。 对 右 
下 单元 格 施行 同样 的 操作 。 


(4) 调整 表格 的 大 小 ， 


并 且 将 表格 的 边框 线 设置 为 0， 此 时 表格 如 图 2-14 所 示 。 此 


时 绘制 出 的 表格 决定 了 网 页 的 基本 布局 。 
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图 2-14 表格 绘制 结果 
G) 在 表格 最 上 面 的 单元 格 中 输入 文字 “新 书 介绍 ” 然后 新 建 一 个 CSS 规则 设置 文 
本 的 格式 ， 得 到 结果 如 图 2-15 所 示 。 
(6) 同 理 ， 在 下 面 的 单元 格 中 输入 内 容 ， 最 终 得 到 如 图 2-16 所 示 的 效果 。 


图 2-15 输入 网 页 标题 图 2-16 在 单元 格 中 输入 其 他 内 容 

《7) 将 光标 定位 在 左下 角 的 单元 格 中 ， 在 属性 面板 上 的 “目标 规则 ”下 拉 列 表 中 选 
TE "3r CSS 规则 ” 然后 单 击 “ 编 辑 规则 ”按钮 新 建 一 个 CSS 规则 ， 为 单元 格 设置 背景 图 
像 。 


C8) 在 弹出 的 对 话 框 中 指定 选择 器 类 型 为 “类 ” 选择 器 名 称 为 .backgroundimg QE 
意 名 称 前 面 有 句点 )， 规 则 定义 位 置 为 “ 仅 限 该 文档 ” 然后 单 击 “ 确 定 ” 按 钮 。 

(9) 在 规则 定义 对 话 框 中 单 击 左 侧 分 类 中 的 “背景 ” 然后 选择 需要 的 背景 图 片 ， 完 
成 单元 格 的 背景 设置 ， 此 时 的 文档 如 图 2-17 所 示 。 

(10) 在 右 下 角 的 单元 格 中 输入 文本 “友情 链接 ”将 光标 放 在 文本 的 前 端 ， 单 击 “ 常 
押 板 中 的 图 :按钮 ， 在 弹出 的 对 话 框 中 选择 要 插入 的 图 像 。 

(11) 在 单元 格 属性 设置 面板 中 为 单元 格 设置 背景 色 。 此 时 的 页 面 效果 如 图 2-18 所 示 。 
Tz P F12 键 预 览 网 页 的 最 终 效 果 。 


x 


H' 


Si 


图 2-17 插入 单元 格 背景 图 2-18 网 页 制作 最 终 效 果 


Z0 41e3deu) 
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[Dj 5. 2 框架 网 页 
在 同一 个 站 点 的 页 面 中 有 很 多 东西 是 相同 的 ， 例 如 每 一 个 页 面 都 有 返回 主页 的 超级 链 


接 ， 每 个 页 面 都 有 导航 栏 ， 这 样 访问 者 才能 自由 地 访问 一 个 站 点 。 如 果 在 不 同 的 网 页 中 重 
复 创建 这 些 相 同 的 内 容 ， 在 增 大 工作 量 的 同时 ， 也 浪费 了 宝贵 的 网 络 空间 。 使 用 框架 则 可 
以 轻易 地 解决 这 种 问题 。 

框架 是 窗口 的 一 部 分 , 它 将 一 个 Web 页 面 分 成 几 个 部 分 , 其 中 每 一 个 部 分 都 是 独立 的 。 
一 个 框架 中 的 超级 链接 可 以 指定 为 在 另 一 个 框架 中 打开 ， 这 样 在 打开 超级 链接 的 时 候 ， 整 
个 页 面 保 持 不 变 ， 链 接 的 内 容 在 目标 框架 中 显示 。 


1. 创建 框架 


框架 由 框架 集 和 单个 框架 组 成 。 框 架 集 是 在 一 个 文档 内 定义 一 组 框架 结构 的 HTML 
网 页 。 它 定义 文件 显示 的 框架 数量 、 框 架 大 小 、 载 入 框架 的 网 页 及 其 他 可 定义 的 属性 等 。 
单个 框架 是 指 在 网 页 中 定义 的 一 个 区 域 。 
在 Dreamweaver CS6 中 创建 框架 有 以 下 儿 种 方法 : 
€ ”插入 预 设 框 架 。Dreamweaver 在 “插入 ”/“HTML”/“ 框 架 ” 下 拉 菜 单 中 提供 了 
13 种 预定 义 的 框架 ， 选 择 其 中 一 个 子 菜 单 选项 ， 即 可 插入 对 应 的 框架 。 
@ ” 晶 定义 框架 。 执 行 “ 查 看 ”/“ 可 视 化 助理 ”/“ 框 架 边 框 ”命令 显示 边框 ， 然 后 
在 文档 窗口 中 拖 动 框架 边框 到 合适 的 位 置 。 例 如 ， 先 拖 动 左边 的 框架 边框 到 中 间 
位 置 ,然后 拖 动 底部 的 框架 边框 到 中 间 位 置 , 最终 形成 的 框架 结构 如 图 2-19 所 示 。 


-PT .nx 


Kl2-19 Ae SEAR 
e CINCHER. Hob DRE Rode BAIN, WT "Men /“ 框 架 集 ” 命 令 下 
的 拆 分 框架 子 命令 ， 图 2-20 所 示 的 效果 是 先 拆 分 上 框架 ， 然 后 在 下 方 的 框架 中 拆 
分 左 、 右 框架 而 形成 的 堪 套 框架 。 
2， 框 架 的 基本 操作 
执行 “窗口 ”/“ 框 架 ”菜单 命令 ， 打 开 图 2-21 所 示 的 “框架 ” 面板。 框架 面板 为 广 
档 中 的 框架 提供 了 一 个 直观 的 表示 方式 。 
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图 2-20 WEER AR 图 2-21 “框架 ”面板 
(1) 选取 框架 或 框架 集 。 
€ ”在 “框架 ”面板 中 用 鼠标 单 击 要 选取 的 框架 或 框架 集 的 边框 ， 即 可 选取 相应 的 框 
染 或 框架 集 。 此 时 ， 文 档 窗口 中 选取 的 框架 或 框 染 集 的 四 周 显示 虚线 。 
€ ”在 文档 窗口 中 单 击 要 选取 的 框架 的 边框 ， 即 可 选中 框架 ， 单 击 框 架 集 的 边框 ， 可 
(2) 设置 框 染 与 框架 集 必 性。 框 染 与 框 染 集 的 属性 设置 在 图 2-22 所 示 的 面板 中 进行 。 
属性 = 


ARER Q0 
ARAR H) 


= 


a 


/wwwroot/test/UntitledFrame-11| Gy) MES) | 默认 Y 
~ | 回 不 能 调整 大 小 人 ) 边框 颜色 [ -| | 


nil 


尾 性 


一 | 框架 集 边框 @) | 否 v| inge cr. 
I| £g 2 HERE OD 5 | E ] 
All: | 
fav) Bran 


dm CE] | 
图 2-22 “框架 与 框架 集 属性 面板 
属性 面板 中 的 部 分 属性 功能 介绍 如 下 : 
€ RI: 指定 在 框架 中 是 否 显示 滚动 条 。 
€ WHEE. WAAR: 设置 内 容 与 框架 边框 左右 或 上 下 的 距离 。 
4 
+ 


ih 


框架 集 : 当前 选 定 的 框架 集中 所 包含 的 框架 行 数 和 列 数 。 
行列 选 定 范围 : 用 于 设置 选 定 框 架 集中 各 行 各 列 的 框架 大 小 。 单 击 “ 行 列 选 定 范 
用” 框 内 的 标签 ， 选 取 行 或 列 ， 然 后 在 “ 值 ” 域 中 输入 数值 ，“ 值 ” 域 中 指定 8 
Ws 

(3) 删除 框架 。 删 除 框 架 的 操作 比较 特殊 ， 选 中 框架 后 按 Delete 键 并 不 能 删除 框架 ， 
而 是 采取 下 面 的 方法 : 将 光标 放 在 框架 的 边框 上 ， 当 光标 变 为 双向 箭头 时 按 住 鼠 标 左 键 将 
框架 的 边框 拖 出 父 框架 或 页 面 之 外 ， 即 可 删除 框架 。 如 果 对 HTML 语言 比较 熟悉 ， 可 以 直 


Z0 41e3deu) 


接 在 HTML 代码 中 删除 框架 和 框架 集 。 
于 每 一 个 框架 代表 一 个 单独 的 网 页 ， 所 以 在 保存 文件 时 ， 


(4) 保存 框架 和 框架 集 。 
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不 仅 要 保存 整个 文档 的 框架 结构 ， 还 必须 保存 各 个 子 框架 。 
存 全 部 ”命令 ， 弹 出 保存 文件 窗口 ， 同 时 框架 集 被 选中 。 输 入 文件 名 ， 然 后 单 击 “保存 ” 
按钮 保存 整个 框架 集 。 在 弹出 的 下 一 个 保存 文件 的 窗口 中 输入 当前 被 选中 的 框架 的 文件 


名 ， 单 击 “ 保 存 ” 按 钮 保存 该 子 框 架 。 用 同样 的 方法 保存 其 他 子 框架 ， 


就 必须 保存 N+1 次 文件 。 
3. 在 框架 中 打开 文档 


如 果 要 在 一 个 框架 中 打 姑 


C1) 在 设计 视 


(2) 在 属性 面板 的 “链接 ”文本 框 中 指定 要 链接 到 的 文件 。 


图 中 选择 要 创建 链接 的 文本 或 对 象 。 


方法 如 下 : 执行 “文件 ”/“ 保 


WRA N 个 框架 ， 


F 劝 一 个 框架 中 的 超级 链接 ， 可 以 执行 以 下 操作 : 


(3) 在“ 目标” 下拉 列表 中 选择 链接 的 文档 应 显示 的 框架 或 窗口 。 
如 果 在 属性 面板 中 命名 了 框架 ， 则 框架 名 称 将 出 现在 “目标 ”下 拉 列 表 中 。 


4. 框架 的 应 用 实例 
下 面 将 制作 一 个 包含 框架 结构 的 页 面 ， 以 加 深 读者 对 框架 的 理解 。 页 面 的 最 终 效果 如 


图 2-23 所 示 。 


本 例 页 面 由 三 个 框架 组 成 ， 上 框架 、 左 下 框架 和 右 下 框架 。 


前 言 


193) E — Dreamweaver CS6. Flash C56 和 
WIESE CREE. (Dreamweaver) 3 
(Frewocks) ， 是 使 用 最 多 的 网 页 制作 工具 之 一 。 


图 2-23 ”实例 效果 图 


Dreamweaver CS6 .DIY 教程 
近年 来 ， 估 息 技术 发 展 和 应 用 磷 飞 噬 进 ， 互 联网 已 经 成 为 第 四 媒体 ， 使 全球 
越 来 趟 及 的 公司 、 机 构 用 至 个 人 都 斤 有 了 让 已 的 网 页 或 网 


THB Adobe dels 


6 s. ef lik T FAA 
ex) 、 殉 页 动画 制作 《Flash) 及 网 页 图 像 处 理 


分 别 用 于 显示 主题 、 导 航 


和 教程 的 内 容 。 当 单 击 导航 按钮 时 ， 右 下 框架 将 显示 对 应 的 页 面 。 有 具体 制作 步骤 如 下 : 
C1) 新 建 一 个 文档 。 


(2) 执行 “插入 ”/“HTML”/“ 框 架 ”/“ 上方 及 左 侧 嵌 套 ” 命 令 插入 框架 ， 


整 各 框架 大 小 至 合适 位 置 。 


然后 调 


(3) 调 出 “框架 ”面板 。 在 “框架 ”面板 中 单 击 顶 部 的 框架 ， 然 后 在 属性 面板 上 输 
入 框架 的 名 称 TopFrame, 其 余 选 项 保留 默认 设置 。 同样 的 方法 为 左下 部 和 右 下 部 的 框架 分 
别 命 名 为 LeftFrame 和 MainFrame。 
(4) 右 击 TopFrame 框架 内 部 ， 在 弹出 的 快捷 菜单 中 选择 “页 面 属性 ”命令 。 设 置 页 
面 字体 为 隶书 ， 文 本 颜色 为 红色 ， 并 设置 背景 图 像 。 


(5) 把 光标 定位 于 TopFrame 框架 内 ， 单 击 “ 常 月 


”面板 上 的 图 标 图 ， 在 框架 内 插入 
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图 片 。 选 择 插入 的 图 片 ， 在 属性 面板 设置 对 齐 方式 为 “ 左 对 齐 ”。 
(6) 在 TopFrame 框架 内 输入 文本 :“Dreamweaver CS6 DIY 教程 >”。 然 后 在 属性 面板 
中 设置 文本 的 “大 小 ”为 36， 居 中 放置 。 
(7) 在 框架 LeftFrame 内 单 击 鼠标 右键 , 在 弹出 的 快捷 菜单 中 选择 “页 面 属性 ”命令 ， 
设置 “背景 颜色 ” 值 为 “#9C9”。 
(8) 在 LeftFrame 框架 内 插入 一 个 5 行 1 列 的 表格 。 此 时 的 页 面 效 果 如 图 2-24 所 示 。 
Dreamweaver CS6 DTIY 敏 程 


图 2-24 搬入 表格 后 的 页 面 


C9) 将 光标 放置 在 表格 第 1 行 的 单元 格 中 ， 然 后 在 单元 格 中 插入 一 个 预先 制作 好 的 
按钮 ， 并 在 属性 面板 上 设置 链接 目标 。 

(10) 用 同样 的 方法 插入 其 余 4 个 按钮 ， 并 指定 链接 目标 。 

(11) 在 框架 MainFrame 内 单 击 鼠 标 右键 ,在 弹出 的 快捷 菜单 中 执行 “页 面 属性 ” 命 
令 ， 设 置 背景 图 像 。 

(12) 在 MainFrame 框架 内 输入 文本 并 调整 文字 格式 。 

(13) 执行 “文件 ”/“ 保 存 全 部 ”命令 ， 依 次 保存 框架 文档 。 

C140 新 建 一 个 无 框架 普通 文档 。 设置 页 面 背景 , 并 在 文档 中 输入 文本 , 效果 如 图 2-25 
所 示 。 保 存 文件 为 “文本 与 链接 ”按钮 的 “链接 ”属性 所 指向 的 文件 名 textandlink.html。 
再 用 同样 方法 制作 其 他 文件 。 


本 章 重 点 


学 习 目 的 


通过 本 章 的 学 习 ， 您 将 掌握 ; 


L 播 入 普通 文本 、 特 殊 符 号 和 日 期 的 方法 
2. 超级 链接 的 革 本 知识 和 三 种 超级 链接 的 区 唱 
duna i > 


图 2-25 textandlink.html 


(15) 页 面 制作 完毕 ， 按 F12 键 可 以 在 浏览 器 中 预览 效果 。 


«0 4e3deu) 
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[[]».5.3 使 用 Ap 元 素 定位 


所 谓 AP 元 素 ， 就 是 绝对 定位 元 素 ， 是 分 配 有 绝对 位 置 的 HTML 页 面 元 素 。AP 元 素 


可 以 包含 文本 、 图 像 或 其 他 任何 可 放置 到 HTML 文档 正文 中 的 内 容 。 与 表格 相 比 ，AP 


元 素 一 个 很 大 的 优势 是 可 以 随意 移动 , 以 放 在 网 页 中 的 任何 位 置 。 在 Dreamweaver CS6 中 ， 
AP 元 素 还 可 以 与 表格 互相 转化 ， 这 也 是 很 方便 的 。 将 AP 元 素 和 表格 综合 利用 起 来 ， 可 以 


更 好 地 实现 图 文 混 排 。 


通过 AP 元 素 管 理 面板 可 以 管理 文档 中 的 AP 元 素 。 执 行 “ 窗 口 ”/“AP 元 素 ” 命 令 ， 


即 可 打开 AP 元 素 管 理 面 板 ， 如 图 2-26 Pras. “AP 元 素 ” 面 板 提供 了 
行 有 效 控制 的 手段 。 


— 


一 种 对 网 页 的 对 象 进 


AP 元 素 显 示 为 按 Z 轴 顺 序 排列 的 名 称 列表 ， 通 过 更 改 AP 元 素 


的 堆 半 顺序 号 可 以 改 


变 AP 元 素 在 堆 闪 顺序 中 的 位 置 。 单 击 AP 元 素 名 前 的 眼睛 S 图 标 列 ， 可 以 设置 AP 元 素 


的 可 见 性 。 睁 开 的 眼睛 表示 AP 元 素 可 见 ， 闭 上 的 眼睛 表示 不 可 见 ; 


没有 了 眼睛 表示 继承 其 


父 AP 元 素 的 可 见 性 ， 如 果 没 有 父 AP 元 素 ， 则 继承 文档 主体 的 可 见 性 ， 它 总 是 可 见 的 。 


1. 创建 AP 元 素 与 谱 套 AP 元 素 


(1) 创建 AP 元 素 。 将 光标 放置 在 文档 窗口 中 需要 插入 AP 元 素 的 位 置 , 然后 单 击 “ 布 


局 ”工具 栏 中 的 “绘制 AP Div” 图 标 图 ， 和 鼠标 指 针 变 成 中 形状 ， 在 页 


四 中 按 下 鼠标 左 键 拖 


动 绘制 一 个 矩形 即 可 创建 一 个 AP 元 素 。 


如 果 需 要 绘制 多 个 AP 元 素 ， 按 住 Ctrl 键 的 同时 在 文档 窗口 中 绘制 一 个 AP 元 素 ， 不 


释放 Ctrl 键 ， 就 可 以 连续 绘制 多 个 AP 元 素 。 
(2) 直接 创建 嵌 套 AP 元 素 。 在 没有 选中 “AP 元 素 ” 面 板 中 的 


“PEER” SHE 


的 前 提 下 ,将 光标 放置 在 AP 元 素 内 ,用 插入 AP 元 素 的 方法 创建 新 的 AP 元 素 。 先 创建 的 


一 个 AP 元 素 是 父 AP 元 素 ， 后 创建 的 AP 元 素 是 子 AP 元 素 。 在 “AP 元 素 ” 面 板 中 ， 子 
AP 元 素 显示 在 父 AP 元 素 下 方 ， 且 向 右 缩 进 ， 如 图 2-27 所 示 。 
下 


ORE EE) 


图 2-26 AP 元 素 管理 面板 图 2-27 AP 元 素 嵌 套 效果 


如 果 已 在 “首选 参数 ”对 话 框 中 将 AP TURK EER, M 
要 按 下 键盘 上 的 Alt BE. 


2. AP 元 素 的 基本 操作 
CD 激活 、 选 中 AP 元 素 。 在 AP 元 素 内 的 任何 位 置 单 击 鼠 标 ， 


被 激活 AP 元 素 的 边界 突出 显示 ， 选 择 手 柄 上 也 同时 显示 出 来 ， 如 攻 


绘制 子 AP 元 素 时 需 


即 可 激活 AP 元 素 。 
2-28 左 图 所 示 。 
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或 边框 ,或 在 设计 视图 
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选中 状态 时 ， 边 框 上 将 显示 控制 手柄 ， 如 图 2-28 右 图 所 示 。 


Had 


LT 


图 2-28 AP 元 素 的 激活 和 选中 状态 


如 果 要 选中 多 个 AP 元 素 , 可 以 先 在 文档 窗口 中 选择 一 个 AP 元 素 , 然后 按 住 Shift 键 ， 


二 其 他 AP 元 素 的 边框 。 


在 “AP 元 素 ” 面 板 中 单 击 AP 元 素 的 名 称 , 或 在 文档 窗口 中 单 击 AP 元 素 的 选择 柄 忆 
中 单 击 AP 元 素 代码 标记 ， 都 可 以 选中 一 个 AP 元 素 。AP 元 素 处 于 


(2) 调整 AP 元 素 的 大 小 和 位 置 。 选 中 AP 元 素 后 ， 在 AP 元 素 属性 设置 下 


板 中 可 以 


一 BUB ie AP 元素 之 后 , 在 想 要 扩展 的 方向 上 按 下 Ctrl 键 和 键盘 上 的 箭头 键 ， 可 以 | 


| 一 个 像素 一 个 像素 地 调整 AP 元 素 的 大 小 。 


直接 设置 属性 宽 和 高 的 具体 数值 。 也 可 以 将 鼠标 指针 移动 到 AP 元 素 边 框 上 的 控制 手柄 上 ， 


如 果 要 同时 调整 多 个 AP 元 素 的 大 小 ， 可 以 选中 多 个 AP 元 素 后 ， 执 行 “ 修 改 ” /“ 拓 


列 顺序 ”/“ 设 成 宽度 相同 ”或 “ 设 成 高 度 相 同 ” 命 令 。 先 选 定 的 AP 元 素 将 调整 为 最 后 一 
个 选 定 AP 元 素 的 宽度 或 高 度 。 在 属性 面板 中 输入 AP 元 素 的 宽度 和 高 度 值 ， 将 应 用 于 所 


有 选 定 的 AP 元 素 。 
选择 AP 元 素 之 后 ， 在 选择 手柄 回 上 按 下 鼠标 左 键 并 拖 动 鼠标 ， 或 使 用 键盘 
键 ， 均 可 移动 AP 元 素 。 


3. AP 元 素 的 应 用 实例 


下 面 将 用 一 个 简单 实例 演示 AP 元 素 的 简单 特效 。 本 例 的 最 终 效果 如 图 2-29 


Sa 


EE AST [Al 


Bras. =% 


鼠标 移动 到 图 片上 时 显示 隐藏 的 AP 元 素 ， 如 图 2-30 所 示 。 鼠 标 离 开 图 片 时 隐藏 AP 元 素 
的 内 容 。 
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本 例 的 具体 操作 步骤 如 下 
(1) 新 建 一 个 文档 ， 设 置 标题 为 “最 初 的 梦想 ” 背景 颜色 为 4EFCC66。 


图 2-29 ”实例 效果 1 图 2-30 实例 效果 2 


(2) 单 击 “ 插 入 ”/“ 布 局 ”面板 中 的 插入 AP 元 素 图 标 盘 ， 在 设计 视图 中 插入 一 个 
AP 元 素 。 输 入 文本 ， 并 新 建 规则 设置 文本 的 字体 、 大 小 和 颜色 ， 然 后 调整 AP 元 素 大 小 及 
位 置 。 

(3) 选中 “最 初 的 梦想 ”， 新 建 CSS 规则 ， 设 置 选择 器 类 型 为 “类 ”， 输 入 选择 器 名 
称 ， 然 后 单 击 “确定 ”按钮 ， 在 弹出 的 规则 定义 对 话 框 中 指定 文本 字体 为 华文 彩云 ， 大 小 
为 xx-large， 颜 色 为 绿色 ， 切 换 到 “区 块 ” 分 类 页 面 中 ， 设 置 文本 对 章 方式 为 居中 。 

(4) 选中 “范玮琪 ” 按照 上 一 步 的 方法 新 建 一 个 CSS 规则 , 定义 文字 的 字体 和 大 小 ， 
以 及 对 齐 方式 ， 此 时 的 页 面 效 果 如 图 2-31 所 示 。 


图 2-31 页 面 效 果 


(5) 单 击 插入 AP 元 素 的 图 标 皇 ， 在 文档 设计 视图 中 再 插入 一 个 AP 元 素 ， 并 在 AP 
元 素 内 插入 一 幅 图 像 ， 调 整 图 像 大 小 及 位 置 ， 效 果 如 图 2-32 所 示 。 


图 2-32 页面 效果 


(6) 在 AP 元 素 apDiv2 右 侧 再 插入 一 个 AP 元 素 。 在 AP 元 素 中 键入 文本 ， 并 调整 
AP 元 素 的 大 小 和 位 置 。 
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(7) 打开 AP 元 素 管理 面板 ， 单 击 AP 元 素 apDiv3 的 眼睛 使 之 闭 眼 。 
(8) 单 击 AP 元 素 apDiv2， 执 行 “ 窗 口 ”/“ 行 为 ”命令 ， 打 开 “ 行 为 ”面板 。 
(9) 单 击 “ 行 为 ”面板 中 的 汪 s 按 钮 ， 从 弹出 的 下 拉 菜 单 中 选择 “显示 -隐藏 元 素 ” 命 


n. 


(10) 在 “显示 -隐藏 元 素 ” 对 话 框 中 选择 AP 7634 apDiv3， 然 后 单 击 “ 显 示 ” 按 钮 。 

C11) 单 击 事件 下 拉 列 表 按 钮 ， 从 弹出 的 事件 列表 菜单 中 选择 OnMouseOver. 

(12) 为 AP 元 素 apDiv2 添加 第 二 个 “显示 -隐藏 元 素 ” 行 为 ， 在 “显示 -隐藏 元 素 ” 
对 话 框 中 选择 AP 元 素 apDiv3， 然 后 单 击 “隐藏 ”按钮 。 事 件 选择 OnMouseOut. 

(13) 按 F12 键 预 览 效 果 。 


26 ”模板 与 库 


在 建立 并 维护 一 个 站 点 的 过 程 中 ， 往 往 需要 建立 大 量 外 观 及 部 分 内 容 相同 的 网 页 ， 使 
站 点 具有 统一 的 风格 。 如 果 逐 页 建立 、 修 改 ， 既 费时 费力 ， 而 且 效 率 不 高 ， 还 容易 出 错 。 
Dreamweaver CS6 提供 了 两 个 利器 一 一 模板 和 库 ， 可 以 轻松 解决 这 个 问题 。 

模板 与 库 的 作用 类 似 ， 都 是 一 种 保证 网 页 中 的 部 件 能 够 重复 使 用 的 工具 。 模 板 重复 使 
的 是 网 页 的 一 部 分 结构 ， 而 库 则 提供 了 一 种 重复 使 用 网 页 对 象 的 方法 。 


Cm 


([].e.1 eji ERES 


模板 提供 了 一 种 建立 统一 风格 的 网 页 基本 框架 的 方法 : 将 模板 中 不 需要 修改 的 内 容 
《比如 导航 条 、 标 题 等 ) 指定 为 固定 区 域 ， 内 容 需 要 更 新 的 区 域 指定 为 可 编辑 区 域 。 这 样 ， 
基于 模板 创建 的 所 有 文档 的 固定 区 域 是 相同 的 ， 而 可 编辑 区 域 中 的 内 容 则 是 不 同 的 。 

幅 套 模板 是 指 基于 一 个 模板 创建 的 模板 文件 。 若 要 创建 角 套 模板 ， 必 须 首先 保存 原始 
模板 (或 称 基 模 板 )， 然 后 基于 该 模板 创建 新 文档 ， 最 后 将 该 文档 另存 为 模板 。 在 肉 套 模 
板 中 ， 可 以 在 基 模 板 中 定义 为 可 编辑 的 区 域 中 进一步 定义 可 编辑 区 域 。 

模板 的 制作 方法 与 普通 网 页 类 似 , 只 是 在 制作 完成 后 应 定义 可 编辑 区 域 、 重复 区 域 等 。 
下 面 简 单 介绍 创建 一 个 新 的 模板 文件 的 3 种 方法 。 


1. 方法 一 


执行 “文件 ”1“ 新 建 ” 命令 ， 打开“ 新 建文 档 ” 对 话 框 。 在 “类 别 ” 栏 选择 “ 空 模板 ” 
在 “模板 类 型 ”中 选择 需要 的 模板 类 型 ,在 “布局 ”中 选择 模板 的 页 面 布局 ,然后 单 击 “ 创 
建 ”按钮 。 

此 时 保存 空 模板 文件 ， 会 弹出 如 图 2-33 所 示 的 对 话 框 ， 提 醒 本 模板 没有 可 编辑 区 域 。 
单 击 “确定 ”按钮 保存 模板 。 
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? 此 模板 不 含有 任何 可 编辑 区 域 。 您 想 继续 吗 ? 


TBESE. 0) 


图 2-33 ”提示 对 话 框 


2. 方法 二 

选择 “窗口 ”/“ 资 源 ”命令 ， 调 出 “资源 ”面板 ， 单 击 面 板 左 侧 分 类 中 的 模板 图 标 按 
钮 国 | 切 换 到 “模板 ”面板 ， 然 后 单 击 模板 面板 底 端的 “新 建 模 板 ” 图 标 虹 |。 

3. 方法 三 


在 Dreamweaver CS6 中 打开 一 个 普通 文档 ， 执 行 “文件 ”/“ 另 存 为 模板 ”命令 。 指 定 
保存 模板 文件 的 站 点 和 模板 文件 名 称 。 

创建 模板 之 后 ， 可 以 在 “模板 ”面板 的 文件 列表 中 看 到 新 创建 的 模板 ， 面 板 上 部 显示 
当前 选中 模板 的 缩 略 图 。Dreamweaver 将 模板 文件 保存 在 站 点 的 本 地 根 文件 夹 中 的 
Templates 文件 夹 中 , 文件 扩展 名 为 .dwt。 需要 注意 的 是 , 不 要 将 模板 移动 到 Templates X 
件 夹 之 外 或 者 将 非 模板 文件 放 在 Templates 文件 夹 中 , 也 不 要 将 Templates 文件 夹 移 动 到 
本 地 根 文件 夹 之 外 。 

模板 的 编辑 方法 与 普通 页 面 类 似 ， 由 于 篇 幅 所 限 ， 在 此 不 再 叙述 。 

创建 模板 的 主要 目的 是 在 本 地 站 点 中 使 用 这 个 模板 创建 具有 相同 外 观 及 部 分 内 容 相 
同 的 文档 ， 使 站 点 保持 风格 统一 。 若 要 基于 一 个 模板 文件 创建 网 页 ， 可 以 在 “模板 ”面板 
中 选择 一 个 模板 ， 单 击 鼠 标 右键 ， 从 弹出 的 快捷 菜单 中 选择 “从 模板 新 建 ” 命 令 。 基 于 模 
板 创建 的 文件 右上 和 角 将 显示 基 模 板 的 名 称 ， 如 图 2-34 所 示 。 
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图 2-34 基于 模板 创建 的 页 面 


此 时 会 发 现 ， 在 基于 模板 创建 的 页 面 中 无 法 编辑 页 面 内 容 ， 这 是 因 Do n 
件 中 创建 可 编辑 区 域 。 有 关 创 建 可 编辑 区 域 的 操作 将 在 下 一 节 中 进行 详细 介 


基于 模板 创建 一 个 网 页 文件 后 ， ade E d ER 3 E 8 E Hc 
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套 模板 可 以 定义 更 加 精细 的 页 面 布局 。 


[jp.6.2 定义 可 编辑 区 域 


模板 由 可 编辑 区 域 和 不 可 编辑 区 域 两 部 分 组 成 。 不 可 编辑 区 域 包含 了 在 所 有 页 面 中 共 
有 的 元 素 ， 即 构成 页 面 的 基本 框架 ， 而 可 编辑 区 域 则 用 于 定义 网 页 的 个 性 内 容 。 
基于 模板 创建 网 页 时 ， 可 以 激活 可 编辑 区 域 并 添加 页 面 内 容 。 没 有 添加 可 编辑 区 域 的 
部 分 在 页 面 中 处 于 锁定 状态 ， 不 可 编辑 。 在 模板 中 对 不 可 编辑 区 域 所 做 的 任何 更 改 都 将 影 
响 站 点 中 每 一 个 基于 此 模板 生成 的 网 页 ， 因 此 在 网 站 维护 中 ， 通 过 修改 模板 的 不 可 编辑 区 
域 ， 可 以 快速 地 更 新 整个 站 点 中 所 有 使 用 了 模板 的 页 面 布 局 。 

下 面 通过 一 个 简单 实例 演示 在 模板 文件 中 创建 可 编辑 区 域 的 具体 操作 。 操 作 步 又 如 
下 : 

(1) 按照 本 章 上 一 节 所 述 方法 创建 一 个 模板 文件 。 

(2) 在 设计 视图 中 插入 一 张 图 片 ， 再 添加 一 个 三 行 三 列 的 表格 ， 输 入 文字 并 调整 表 
格 和 图 像 的 大 小 。 

(3) 单 击 设计 窗口 底部 标签 选择 器 中 的 <table> 标 签 ， 选 中 表格 。 

(4) 执 行 “插入 ”/“ 模 板 对 象 ”/“ 可 编辑 区 域 ”命令 , 或 单 击 “ 常 用 ”面板 上 的 回国 泪 区 
菜单 项 ， 弹 出 “新 可 编辑 区 域 ”对 话 框 。 

(5) 在 对 话 框 的 “名 称 ” 文 本 框 输入 可 编辑 区 域 的 名 称 ， 该 名 称 将 显示 在 可 编辑 区 
域 的 左上 角 。 单 击 “ 确 定 ” 按 钮 ， 即 可 将 表格 转换 为 可 编辑 区 域 。 

可 编辑 区 域 在 模板 文件 中 用 彩色 (默认 颜色 为 绿色 ) 高 亮度 显示 ， 顶 端 显 示 可 编辑 区 
域 的 名 称 。 插 入 可 编辑 区 域 后 的 页 面 效 果 如 图 2-35 所 示 。 
(6) 保存 文件 。 一 个 简单 的 模板 文件 就 制作 完成 了 。 


景点 ”交通 A 特产 新闻 


单元 格 00 | 单元 格 01 | 单元 格 02 


单元 格 10 | 单元 格 11 


单元 格 12 


单元 格 20 | 单元 格 21 单元 格 22 


42-35 ”可 编辑 区 域 在 Dreamweaver 中 的 效果 


[Ll.6.3 定义 重复 区 域 


在 网 页 设计 中 ， 常 常 需要 重复 添加 某 些 页 面 元 素 〈 如 添加 表格 的 行 或 列 )， 以 达到 扩 
展 页 面 布局 的 目的 。 重复 区 域 是 模板 中 设置 为 可 重复 添加 网 页 元 素 的 区 域 , 通常 用 于 表格 ， 
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也 可 以 为 其 他 页 面 元 素 定义 重复 区 域 。 在 模板 中 可 插入 两 种 类 型 的 重复 区 域 : 重复 区 域 和 
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重复 表格 。 
重复 表格 与 重复 区 域 的 


lirli 


ESL AAEM HUI AAE MAA, ETE 


板 生成 的 网 页 可 以 在 重复 表格 单元 格 中 添加 内 容 。Dreamweaver 在 插入 重复 表格 时 自动 将 


单元 格 设置 成 可 编辑 区 域 。 而 重复 


必须 在 重复 区 域内 插入 可 编辑 


区 域 。 


在 模板 中 创建 重复 区 域 可 以 执行 以 下 操作 : 
(1) 将 插入 点 放 在 文档 中 要 插入 重复 区 域 的 位 置 。 


€ 插入 » / 


(2) 执行 


fj" Tul. 


(4) 单 击 “ 


基于 模板 文件 新 建 一 个 页 面 的 效果 如 


I 一 个 重复 区 域 的 


Hl, "TEES 


“模板 对 象 ” /“ 重 
dg pos IEEE o, uk unde Sr pon x 
G) 在 对 话 框 的 “名 称 ”文本 框 中 输入 重 


区 域 不 是 可 编辑 区 域 , 若 要 使 


区 域 ”菜单 命令 ， 或 单 击 “ 常 月 


e 


E 复 区 域 的 名 称 。 


副本 ， 如 图 2-36 4 


图 所 示 。 


选中 茶 个 重复 项 ， 单 击 减 号 按钮 ， 即 可 删除 选中 的 重复 项 。 


选中 某 个 重复 项 之 后 ， 单 击 向 上 或 


在 实际 应 用 中 ， 通 常 将 重 


编辑 重复 元 素 中 的 内 容 。 


命令 


。 弹 出 如 图 2-37 所 示 的 


模板 :repea 


tregion ^ 


图 2-36 


搬入 重复 表格 的 步骤 如 下 : 
CD 将 光标 定位 在 要 插入 重复 表格 的 位 置 ， 执 行 “ 扣 


重复 区 域 效 果 
复 区 域 设置 为 可 编辑 区 域 ， 或 使 用 重 


“插入 重复 表格 ”对 话 框 。 
(2) 在 对 话 框 中 指定 表格 的 行 数 、 列 数 、 单 元 格 边 距 和 间距 、 表 格 宽度 和 边框 宽度 。 


(3) 在 “重复 表格 行 ” 


在 “起 始 行 ”输入 设置 为 重复 区 域 中 的 第 一 


区 域 最 后 一 行 的 行 号 。 
(4) 在 “ 


区 域 指定 表格 中 的 哪些 行 包括 在 重 


区 域 中 。 


行 的 行 号 ; 在 “ 绪 


区 域名 称 ” 文 本 框 中 指定 重复 表格 的 唯一 名 称 。 


E 复 区 域 中 的 内 容 可 编辑 ， 
”面板 上 的 


图 2-36 左 图 所 示 。 单 击 重复 区 域 顶部 的 加 号 按 


向 下 的 三 角形 按钮 ， 可 以 修改 重复 项 的 层 登 位 置 。 


x 样 用 户 可 以 


FE 入”/“ 模 板 对 象 ”/“ 重 复 表 格 ” 


结束 行 ”输入 将 作为 重复 
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行 数 : 单元 格 边 距 : |0 
z: 
XE: 


边框 : 


起 始 行 : 
区 域名 称 : 


HH 


图 2-37 “插入 重复 表格 ”对 话 框 

(5) 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 ， 即 可 在 模板 文件 中 插入 重复 表格 ， 效 果 如 图 2-38 
左 图 所 示 。 

本 例 在 “插入 重复 表格 ”对 话 框 中 设置 的 行 数 为 3， 列 数 为 1， 且 重复 表格 起 始 行 和 
结束 行 均 为 2?， 因 此 ， 在 生成 的 重复 表格 中 ， 只 有 第 二 行 的 单元 格 中 插入 了 可 编辑 区 域 。 
基于 模板 文件 新 建 一 个 页 面 ， 即 可 在 新 页 面 中 添加 重复 项 ， 并 修改 可 编辑 区 域 的 内 容 ， 效 
果 如 图 2-38 右 图 所 示 。 


图 2-38 重复 表格 效果 


D_iz 6. 4 更 新 模板 文件 


如 果 对 模板 进行 了 修改 ，Dreamweaver CS6 会 提示 是 否 修改 应 用 该 模板 的 所 有 网 页 ， 
也 可 以 通过 命令 手动 更 新 当前 页 面 或 整个 站 点 。 模 板 修改 完成 后 ， 执 行 “修改 ”/“ 模 板 ” 
/“ 更 新 页 面 ” 命 令 ， 弹 出 如 图 2-39 所 示 的 “更 新 页 面 ” 对 话 框 。 


EO: | v] [test x] 
更 新 : OFRE 02 
[v] 838 m) 
口 显示 记录 00 
RE: 
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图 2-39 “更 新 页 面 ”对 话 框 
在 “查看 ”下 拉 列 表 框 中 选择 “整个 站 点 ”选项 ， 在 右 侧 的 站 点 下 拉 列 表 框 中 选择 要 
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更 新 的 站 点 ， 然 后 在 “更 新 ” 右 侧 区 域 选 择 “ 模 板 ” 复 选 框 。 单 击 “ 开 始 ”按钮 ， 即 可 将 


模板 的 更 改 应 用 到 站 点 中 使 用 该 模板 的 网 页 。 在 “状态 ” 栏 将 显示 更 新 状态 。 


Qb. 6.5 创建 库 项 目 


在 站 点 中 除了 具有 相同 外 观 的 许多 页 面 外 ， 还 有 一 些 需要 经 常 更 新 的 页 面 元 素 ， 例 如 
版 权 声明 、 最 新 消息 。 这 些 内 容 与 模板 不 同 ， 和 它们 只 是 页 面 中 的 一 小 部 分 ， 在 各 个 页 面 中 
的 摆 放 位 置 可 能 不 同 ， 但 内 容 却 是 一 致 的 。 可 以 将 这 种 内 容 保存 为 一 个 库 文 件 ， 在 需要 的 
地 方 插 入 ， 在 需要 的 时 候 快 速 更 新 。 

库 是 一 种 特殊 的 Dreamweaver 文件 ， 其 中 包含 已 创建 准备 放 在 Web 页 上 的 单独 的 
资源 或 资源 副本 的 集合 ， 如 图 像 、 表 格 、 声 音 和 Flash 文件 等 。 库 里 的 这 些 资源 称 为 库 项 
目 。 库 项 目 保存 在 当前 站 点 的 Library 文件 夹 中 ， 以 .lbi 作为 扩展 名 。 与 模板 类 似 ， 库 项 目 
应 该 始终 在 Library 文件 夹 中 ， 并 且 不 应 向 该 文件 夹 中 添加 任何 非 .lbi 的 文件 。 

创建 库 项 目的 操作 步骤 如 下 ; 

(1) 在 文档 中 选择 需要 保存 为 库 项 目的 部 分 。 

(2) 执行 “窗口 ” /资源 ”命令 ， 在 “资源 ”面板 上 单 击 鸟 图标， 打开 库 管理 面板 。 

(3) 单 击 资源 管理 面板 上 的 新 建 库 项 目 图 标 蜗 |， 输入 库 项 目的 名 称 。 

C4) 单 击 资源 面板 底部 的 编辑 按钮 多， 或 在 “ 库 ” 面板 中 双击 库 项 目 ，Dreamweaver 
将 打开 一 个 用 于 编辑 该 库 项 目的 新 窗口 ， 此 窗口 类 似 于 文档 窗口 。 

(5) 运用 编辑 普通 页 面 元 素 的 方法 为 库 项 目 添 加 内 容 。 

(6) 编辑 完毕 ， 保 存 文 件 ， 即 创建 一 个 库 项 目 。 


Vu E c m CR gg CD E cQ cR SM ceder | 


= 提示 :编辑 库 项 目 时 ，CSS 样式 面板 不 可 用 ， 因 为 库 项 目 中 只 能 包含 body AH, CSS | 
样式 表 代码 却 可 以 插入 到 文档 的 head 部 分 。 此 外 ，“ 页 面 属性 ”对 话 框 也 不 可 用 ， 因 为 | 
i 库 项 目 中 不 能 包含 body 标记 或 其 属性 。 i 

此 外 ， 还 有 更 简便 的 创建 库 项 目 方法 ， 只 要 在 文档 中 把 选中 的 内 容 拖 到 库 面 板 中 ， 并 
为 其 命名 就 完成 了 。 

创建 库 项 目 之 后 ， 如 果 要 重 命名 库 项 目 ， 可 以 执行 以 下 操作 : 
(1) 在 库 面板 中 单 击 库 项 目的 名 称 将 其 选中 。 
(2) 稍 作 和 暂停 之 后 ， 再 次 单 击 。 注 意 : 不 要 双击 名 称 ， 和 否则 会 打开 库 项 目 进行 编辑 。 
G) 当 名 称 区 域 变 为 可 编辑 时 ， 输 入 一 个 新 名 称 。 
(4) 单 击 别处 ， 或 者 按 下 Enter f£. 
重 命名 库 项 目 ， 实 际 上 就 是 对 本 地 站 点 的 Library 目录 中 的 该 文件 重 命名 。 因 此 ， 也 
可 以 直接 在 Library 目录 中 重 命 名 相应 的 库 项 目 文件 。 

如 果 不 再 需要 某 个 库 项 目 ， 可 以 在 库 中 将 其 删除 ， 具 体操 作 步 又 如 下 : 

(1) 在 库 面板 的 库 项 目 列表 中 选择 要 删除 的 库 项 目 。 


(2) 单 击 库 面 板 底部 的 删除 按钮 十， 弹出 询问 是 否 删除 对 话 框 。 


57 


JOAROMUIROIG 


THEaAGSS 2 qucd 


ASP.NET 4.0 5 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


(3) 单 击 对 话 框 中 的 “是 ”按钮 ， 确 认 删 除 该 项 目 。 
删除 库 项 目 ， 实 际 上 就 是 从 本 地 站 点 的 Library 目录 中 删除 相应 的 库 项 目 文件 。 因 此 ， 
也 可 以 直接 在 Library 目录 中 删除 相应 的 库 项 目 文件 。 
注意 : 
SP 市 除 一 个 库 项 目 后 , 将 无 法 使 用 “撤消 ”命令 恢复 它 。 但 可 以 重新 创建 它 ， 
具体 操作 将 在 下 一 节 中 进行 介绍 。 删 除 库 项 目 时 将 从 库 中 删除 该 项 ， 但 不 会 更 改 任何 
使 用 该 项 的 文档 的 内 容 。 


[L].6.6 在 页 面 中 使 用 库 项 目 


在 页 面 中 添加 库 项 目 时 ， 将 把 库 项 目的 实际 内 容 及 其 引用 一 起 插入 到 文档 中 。 

CD 将 插入 点 定位 在 文档 窗口 中 要 放 入 库 项 目的 位 置 。 

(2) 打开 库 管 理 面板 ， 选 择 要 插入 的 库 项 目 ， 然 后 单 击 亡 疆 入 _j 按 钮 ， 或 将 库 项 目 拖 
到 文档 窗口 ， 即 可 将 库 项 目 添加 到 页 面 中 。 

此 时 ， 文 档 中 会 出 现 库 项 目的 有 具体 内 容 ， 同 时 以 淡 黄 色 高 亮 显示 ， 表 明 它 是 一 个 库 项 
目 ， 如 图 2-40 所 示 。 


图 2-40 页 面 中 插入 的 库 项 


在 文档 窗口 中 ， 库 项 目 是 作为 一 个 整体 出 现 的 ， 用 户 无 法 对 库 项 目 中 的 局 部 内 容 进行 
编辑 。 如 果 和 希望 仅仅 添加 库 项 目 内 容 代 码 而 不 希望 它 作为 库 项 目 出 现 ， 可 以 按 住 Ctr 键 ， 
将 相应 的 库 项 目 插入 文档 中 ， 如 图 2-41 所 示 ， 图 中 的 各 个 部 分 是 分 离 的 , 用户 可 以 单独 编 
辑 其 中 某 一 个 页 面 元 素 。 


图 2-41 页 面 中 插入 的 库 项 目 内 容 
在 文档 窗口 中 选择 一 个 库 项 目 后 ， 对 应 的 属性 面板 如 图 2-42 所 示 。 
D gj————————————-, 
m 库 项 目 Sre PREIS (3)/Librar 


图 2-42 库 项 目的 属性 面板 

该 面板 中 三 个 按钮 的 功能 简要 介绍 如 下 : 

€ HF: 在 文档 窗口 打开 库 文 件 ， 方 便 对 所 选择 的 库 项 目 进 行 再 编辑 。 

令 ”从 源 文件 中 分 离 : 将 当前 选择 的 内 容 从 库 项 目 中 分 离 出 来 ， 这 样 可 以 对 插入 到 文 
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档 窗口 中 的 库 项 目 进行 修改 。 分 离 后 对 源 文 件 进行 的 修改 不 会 更 新 到 库 项 目 。 
€ ”重新 创建 : 将 库 项 目 内 容重 新 转换 成 库 项 目 文件 。 
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通常 ， 在 库 项 目 文件 被 删除 时 ， 使 用 “重新 创建 ”功能 可 以 恢复 以 前 的 库 项 目 文件 。 
如 果 是 重建 原来 没有 的 库 项 目 ， 重 建 后 的 库 项 目 不 会 立即 出 现在 库 面 板 中 。 此 时 ， 在 库 面 
板 上 单 击 鼠 标 右 键 ， 在 弹出 的 快捷 菜单 中 选择 “刷新 站 点 列表 ”命令 ， 即 可 在 库 面 板 中 显 
示 重 建 的 库 项 目 。 


[[].6.7 更 新 库 项 目 


执行 “修改 ”/“ 库 ”/“ 更 新 页 面 ”菜单 命令 ， 在 “更 新 页 面 ”对 话 框 的 “查看 ”下 
拉 列 表 框 中 选择 “整个 站 点 ”选项 和 需要 更 新 库 项 目的 站 点 ， 在 “更 新 ” 右 侧 选择 “ 库 项 


目 ” 复 选 框 ， 然 后 单 击 “ 开 始 ” 按 钮 即 可 更 新 选中 站 点 中 所 有 应 月 


[[]e.6.8 模板 与 库 的 应 用 


日 了 当前 库 项 目的 网 页 。 


前 面 几 节 已 详细 介绍 了 模板 和 库 的 各 种 操作 及 功能 。 下 面 通过 一 个 实例 来 演示 如 何 使 
用 模板 创建 统一 风格 的 多 个 网 页 , 并 利用 库 项 目 更 新 页 面 内 容 。 本 例 的 最 终 效 果 如 图 2-43。 


RENI [Maxthon] 
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图 2-43 ”实例 效果 1 


单 击 某 个 菜单 项 ， 即 可 跳 转 到 相应 的 页 面 ， 如 图 2-44 所 示 。 


al @ o $e 221.192 30 148 03S 


>] 
om 1 ; 


该 例 中 的 各 个 页 面 布局 都 一 样 ， 不 同 的 是 页 面 中 间 区 域 的 显示 内 容 。 此 外 ， 页 面 中 的 


天 气 预 报 和 最 新 消息 栏 使 用 了 库 项 目 , 上 只 要 更 新 相应 的 库 项 目 , 即 可 更 新 该 例 中 所 有 页 面 。 
本 例 的 具体 制作 步骤 如 下 : 
C1) 新 建 一 个 HTML 模板 文件 。 设 置 页 面 的 背景 图 像 ， 左 边 距 为 80， 上 边 距 为 0; 

链接 颜色 和 已 访问 链接 为 绿色 ， 变 换 图 像 链 接 和 活动 链接 为 红色 ， 

下 划 线 。 


且 仅 在 变换 图 像 时 显示 
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图 2-44 ”实例 效果 


(2) 在 页 面 中 插入 Logo 图 片 ， 设 置 图 片 宽度 属性 为 750 像素 ， 高 度 属性 为 80 像素 。 
(3) 在 图 片 下 插入 一 张 两 行 三 列 的 表格 ， 表 格 宽度 设置 为 750 像素 。 合 并 第 一 行 的 3 
个 单元 格 。 再 选中 表格 第 一 行 ， 设 置 高 度 为 20 像素 ， 这 时 文档 效果 如 图 2-45 所 示 。 


(4) 把 光标 定位 在 表格 第 一 行 单元 格 内 ， 单 击 “ 插 入 ”面板 上 的 “Spry” 标 签 ， 切 
换 到 Spry 工具 面板 ， 单 击 Spry KEES, ， 在 弹出 的 “Spry 菜单 栏 ” 对 话 框 中 选择 菜 
单 布局 为 “水 平 ”。 插 入 后 的 菜单 栏 如 图 2-46 所 示 。 


PE c: \tnetpub\wwmoot \lvroulindex0, html (XHTML) 
| 


RED SpryllenuBarHorizontal. ess 


1 
u 
x 


BB ustitrert (RTXL) + -ox 


SpryllenuBar. js 


Ea 


vi 


KI = m imma] >| (< " mm | > 
<body> <table> Ctr? Kt] [RJ] Q low «| 回国 = 520 x 260v 42 K/ .| ‘<body> [R] AQ Se 画 503 x 238 59K/ 


图 2-45 图像 和 表格 效果 图 2-46 插入 表格 的 效果 


(5) 选中 插入 的 Spry 菜单 栏 ， 在 属性 面板 上 设置 菜单 项 。 单 击 左边 第 一 个 列表 框 中 
的 “项 目 1” 在 最 右边 的 “文本 ” 栏 键 入 需要 的 菜单 项 名 称 ， 并 设置 “链接 ”的 目标 文档 。 
同样 的 方法 ， 设 置 其 他 一 级 菜单 项 。 

如 果 一 级 菜单 项 多 于 4 个 ， 单 击 列 表 框 项 部 的 加 号 按钮 ， 即 可 添加 一 个 一 级 琳 单 项 ; 
如 果 少 于 4 个 ， 单 击 减 号 按钮 ， 即 可 删除 一 个 菜单 项 。 

(6) 制作 二 级 菜单 项 。 按 照 上 一 步 的 方法 在 属性 面板 中 间 的 列表 框 中 添加 二 级 菜单 
项 ， 同 理 ， 在 右边 的 列表 框 中 添加 三 级 菜单 项 。 
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弹出 式 菜 单 4 


“类 ” “选择 嚣 名称” 为 .background1， 单 击 “ 古 
在 对 话 框 左 侧 的 “分 类 ”列表 中 选择 

(8) 选中 表格 第 二 行 第 一 列 的 单元 格 ， 将 其 拆 分 为 五 行 ， 如 图 
位 在 上 一 步 拆 分 后 的 第 一 行 单元 格 内 ， 然 后 执行 “插入 ”/“ 模 板 对 象 ”/ 
在 弹出 的 “新 建 可 编辑 区 域 ”对 话 框 中 指定 可 编辑 区 域 的 名 称 为 


入 图 片 ， 并 且 调 整 表 格 到 合适 的 大 小 ， 效 果 如 图 


(9) 光标 定 
“可 编辑 区 域 
weather. [A] # 


剖 作 完成 之 后 ， 在 浏览 器 中 把 光标 停留 在 热点 区 将 弹出 下 拉 荣 单 。 
D 选中 表格 第 二 行 第 一 列 的 单元 格 ， 然 后 新 建 CSS 规则 ， 设 置 “选择 器 类 型 ”为 


E, (EROR 4 个 单元 格 中 所 


2-48 所 示 。 


(10) 选中 第 三 列 的 单元 格 ， 在 属性 面板 上 设置 其 背 


DE" FII] 
， 选 择 一 幅 背 景 图 片 。 


素 ， 单 元 格 内 容 的 垂直 对 齐 方式 为 “顶端 ”。 
C11) 将 光标 定位 在 中 间 单 元 格 内 ， 然 后 执行 “ 撕 
命令 ， 在 弹出 的 对 话 框 中 将 可 编辑 区 命名 为 show. 
(12) 选中 表格 第 三 列 的 单元 格 ， 在 属性 设置 面板 上 设置 单元 格 内 容 的 垂直 对 齐 方式 
为 “顶端 "”， 宽 为 220 像素 。 按 照 第 7 步 的 方法 设置 单元 格 的 背景 图 


B c: Atnetpub\wawroot \lvvou\indexo, htm (XHTML) * 


€T SprytlenvBerHori zontal. css* 


《13) 把 光标 定位 在 表格 第 三 列 的 单元 格 内 捐 
C14) 切换 到 “布局 所 
在 上 一 步骤 插入 的 医 
(15) 把 》 
(16) 把 》 


«marquee 


vspace="5" 


入 图 像 , 此 时 的 页 面 效 果 如 图 
入 面板 , Hih “Ah AP Div” KRS, 这 时 光标 变 成 加 号 (十 )， 
绘制 一 个 AP 元 素 ， 效 果 如 图 2-50 所 示 。 


(标定 位 在 AP ICRA, H 
《标定 位 在 可 编辑 区 域内 ， 切 换 到 代码 视图 ， 找 到 可 编辑 
«1!-- #BeginLibraryItem "/Library/news.lbi" --»«!-- #EndLibraryItem 一 一 > 
然后 在 这 两 对 尖 括 号 中 间 输 入 如 下 代码 : 


behavior-"scroll" 


direction-"up" 


区 域 ， 可 编辑 


loop="-1" scrollamount-"1" scrolldelay-"100" > 


北京 -上 海 
北京 -成 都 


机 票 8 折 <br> «br» 
票 6 折 <br> <br> 


于 对 应 的 规则 定义 对 话 框 。 


景 颜色 为 #99CC99， 宽 为 350 像 


i 入 ”/“ 模 板 对 象 ” /“ 可 编辑 区 域 " 
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图 2-48 di 


区 域 的 名 称 指定 为 news。 
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北京 -杭州 票 7 折 <br> <br> 
北京 -武夷 山 LEE 9 折 <br> <br> 
</marquee> 
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图 2-49 插入 图 片 图 2-50 插入 AP 元 素 


完成 以 上 代码 插入 后 文档 的 预览 效果 如 图 2-51 所 示 。 
C17) 选中 AP 元 素 内 的 文本 ， 然 后 单 击 属性 面板 上 的 居中 对 章 按钮 硅 ， 使 文本 居中 


图 2-51 插入 文本 


(18) 将 光标 定位 在 右边 单元 格 图 片 后 面 ， 再 按 Shift+Enter 换行 ， 输 入 “友情 链接 ” 
内 容 。 选 中 “友情 链接 ”四 个 字 ， 新 建 CSS 规则 。 ”选择 器 类 型 ”为 “类 ”“ 选 择 器 名 称 ” 
为 .fontcolorl ， 单 击 “确定 ” 按 钮 打开 对 应 的 规则 定义 对 话 框 。 在 对 话 框 左 侧 的 “分 类 ” 
列表 中 选择 “类 型 ”， 并 设置 文本 的 字体 、 大 小 和 颜色 。 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 ， 
为 选 定 的 文本 设置 字体 、 字 号 和 颜色 等 属性 ， 然 后 为 各 链接 项 设置 链接 地 址 。 

(19) 单 击 “ 常 用 ”面板 上 的 水 平 线 图 标 按钮 ， 插 入 水 平 线 ， 然 后 输入 “联系 我 们 ” 
栏 的 文本 内 容 ， 并 对 “联系 我 们 ”四 个 字 应 用 上 一 步 中 定义 的 CSS 规则 。 再 插入 一 条 水 平 
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线 ， 然 后 输入 “我 们 的 服务 ”栏目 内 容 。 完 成 本 步骤 后 的 效果 如 图 2-52 所 示 。 


Wha EET 


图 2-52 WHR 

C200 在 页 面 的 底部 插入 一 张 一 行 一 列 的 表格 , 在 属性 面板 中 设置 其 宽度 为 750 像素 ， 
高 为 80 像素 ， 边 框 、 填 充 和 间距 均 为 0。 

(21) 在 表格 内 输入 版 权 等 信息 ， 并 设置 为 居中 对 齐 ， 效 果 如 图 2-53 所 示 。 


Wha et 
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ALATA, Copmeht ComeySoR 2012 
建议 使 用 浏 帮 器 下 5.0 以 上 , BERE 1024768 
Emal webmastern com. 


图 2-53 ”插入 版 权 信息 效果 
(22) 选中 “Email:comeysoft@sina.com”， 在 属性 面板 设置 其 “链接 ”属性 为 “mailto: 


comeysoft@sina.com”. 


接 下 来 将 为 经 常 改变 的 天 气 信息 和 “最 新 消息 ”内 容 制 作成 库 项 目 。 
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LM 


(23) 选中 可 编辑 区 域内 天 气 文 本 ， 如 图 2-54 所 示 。 


(24) 打开 资源 管理 面板 ， 单 击 资源 管理 面板 左下 角 的 库 项 目 按钮 钙 


生理 面板 。 
(25) 执行 


< 
<body> <table> <tr> <td> 


“修改 ” / 


Tl comes ivyou. awt Game) 


QUADR SprylenuBarHori zontal. css 


i > 
(&)@ Q 100 ~| m m IN) soo x 202 258 X / 


图 


2-54 


天 和气 信 息 文 本 


名 称 ， 把 选 定 文本 制作 成 库 项 目 ， 如 图 2-55 所 示 。 


(26) 同样 的 办 法 把 “最 新 消息 ”内 


AX EI 


合 市 


(27) 保存 模板 文件 为 “旅游 网 站 模板 .dwt”。 


至 此 模板 制作 完毕 。 


切换 到 文件 管理 


Library 和 SpryAssets 三 个 文件 夹 ， 如 图 2-56 所 示 。 


sere 


E 
= 


Em e e 


白天 到 夜间 :晴朗 
CHR, ASB; REAM- 
A ET 
8 度 ， 白 天 最 高 气温 
15 度 ， 相 对 湿度 35% 到 - 


图 


制作 好 模板 后 ， 


板 文 件 列 表 中 选中 


«0 4e3deu) 


对 其 内 容 的 编辑 。 
(3) 执行 “修改 ” 
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2-55 PRIA 


/ éé 页 面 属性 ” 


TA 


制作 网 页 就 成 为 轻而易举 的 事情 了 。 
CD 在 “新 建文 档 ” 对 话 框 中 单 击 “模板 中 的 页 ” 
刚才 创建 的 模板 文件 。 
(2) 单 击 “ 创 建 ” 按钮 ， 进 入 文档 窗口 ， 如 图 2-57 所 示 


网 站 开发 从 入 门 到 精通 


， 切 换 到 库 项 目 


“ 库 ”/“ 增 加 对 象 到 库 ” 命 令 ， 然 后 在 库 面 板 中 输入 库 项 目的 
1 作成 库 项 目 文件 news.lbi。 


面板 ， 会 发 现 站 点 中 已 自动 增加 了 Templates. 


EO 


本 地 视图 [v] 


2-56 


可 编辑 区 可 以 输入 内 容 ， 其 中 黄 颜 色 加 亮 的 部 分 为 库 项 目 ， 


“标题 /编码 ” 命 


文件 管理 
制作 本 例 的 首页 执行 以 下 步骤 ; 
， 选 择 本 例 所 在 的 站 点 ， 然 后 在 模 


面板 


， 只 有 weather. show 和 news 


可 以 通过 修改 库 项 目 文件 实现 


令 设 定 新 页 面 


REE, 


“标题 ” 栏 输 


A “RR TICE PA ” 
(4) 删除 show 可 编辑 区 内 的 文本 ， 然 后 输入 首页 内 容 ， 并 设置 文本 和 图 像 格式 ， 最 
终 得 到 效果 如 图 2-43 所 示 。 
C50 将 文件 保存 为 index.html， 完 成 首页 制作 。 
制作 其 他 页 面 步骤 完全 同 首 页 的 制作 相同 ， 在 此 不 再 更 述 ， 其 效果 如 图 2-58 所 示 。 


H ntitre (XRTXL) -0x 
RED SpryMenuBarMorizontal.css — SpryllenuBar. js Y 


北京 -上 海 URS 
ARAE NEN 
IRAN 

P 
HAREL NEM 


~ 
| ii 


| —ÁÉÉÓÉÓÁ I 
ii > G@mtinstance:editable> (|i) Q 100€ ~!) @ (Nj 657 x 400v 234 K / 5 # Unicode (UIF-8) — 


图 2-57 ”新 文档 效果 


首页 北京 - RA > 福建 7 RR 


JOABOMUILIIG] 
RHAASS4 mew 


RIAA: Copynght ComeySott 2012 
建议 使 用 浏览 器 正 5 0 以 上 , PME PRE 1004768 
Emak webmager@ana com 


图 2-58 页 面 效果 


现在 可 以 打开 浏览 器 对 作品 进行 浏览 测试 了 。 
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2.7 动态 网 页 基础 


使 用 Dreamweaver 几乎 不 用 编写 任何 程序 代码 就 能 开发 出 功能 强大 的 网 站 应 用 程序 。 
用 户 可 以 直接 使 用 Dreamweaver 可 视 化 的 方式 编辑 动态 网 页 ,就 像 编 辑 普 通 网 页 一 样 简单 。 
本 节 简 要 介绍 Dreamweaver 的 部 分 动态 网 页 功能 , 读者 可 以 体会 Dreamweaver 在 编辑 动态 
网 页 方面 的 优势 ， 也 可 以 为 系统 学 习 动态 网 页 作 一 个 铺垫 。 


LL. 7.1 动态 网 页 创建 流程 


所 有 的 动态 网 页 都 源 于 静态 页 ,在 Dreamweaver 中 创建 一 个 动态 网 页 可 分 为 5 个 步骤 ; 

C1) 创建 静态 页 。 使 用 Dreamweaver 中 所 有 的 设计 工具 创建 静态 页 。 

(2) 定义 数据 集 。 所 谓 数据 集 是 从 一 个 或 多 个 表 中 提取 的 数据 子 集 。 当 查询 数据 库 
时 可 创建 一 个 数据 集 ， 定 义 的 任何 记录 都 会 添加 到 数据 绑 定 面板 的 列表 中 。 

(3) 数据 绑 定 。 问 数据 绑 定 面板 添加 数据 集 后 ， 就 可 以 向 Web 页 中 添加 动态 内 容 ， 
不 需要 考虑 插入 到 Web 页 中 的 服务 器 端的 脚本 。 

CA) 激活 动态 网 页 。Dreamweaver 提供 了 众多 预定 义 的 服务 器 行为 ， 网 页 设计 人 员 可 
以 使 用 预定 义 的 服务 器 行为 ， 也 可 以 使 用 自己 建立 的 服务 器 行为 或 使 用 其 他 人 员 建 立 的 服 
务 器 行为 。 

(5) 编辑 和 调试 Web W. Dreamweaver 提供 了 3 种 编辑 环境 可视化 编辑 环境 、 活 
动 数据 编辑 环境 和 代码 编辑 环境 ， 还 可 以 使 用 其 他 的 ASP.NET 调试 工具 进行 实时 的 跟踪 
调试 。 


[Db.7.2 设置 实时 视图 
Dreamweaver 的 实时 数据 编辑 环境 能 够 让 网 页 设计 人 员 在 编辑 环境 中 实时 预览 Web 页 

上 的 动态 内 容 ， 可 以 有 效 地 提高 工作 效率 ， 减 少 重复 劳动 。 
(1) 在 Dreamweaver 的 文档 窗口 顶部 单 击 “ 实 时 视图 ”按钮 ， 在 文档 窗口 顶部 显示 
浏览 器 导航 栏 ， 如 图 2-59 所 示 。 


代码 | 拆 分 | 设计 || 实时 视图 | | 实时 代码 | 检查 Qj A http://localhost/blog/mytest. asp «|. 


K2-59 浏览 器 导航 栏 
(20 单 击 浏览 器 导航 栏 最 右 侧 的 “实时 视图 选项 ”按钮 国 4， 在 弹出 的 菜单 中 选择 
“HTTP 请 求 设置 …” 命 令 ， 打 开 如 图 2-60 所 示 的 实时 视图 设置 对 话 框 。 
在 该 对 话 框 中 ， 用 户 可 以 通过 添加 URL 请 求 ， 以 查看 动态 数据 。 
(30 单 击 该 对 话 框 顶 部 的 荡 按 钮 ， 为 每 一 个 变量 指定 名 称 和 测试 值 。 例 如 “名 称 ” 


为 username,“ 值 ”为 vivi. 


Z0 1ə4dey9 
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mytest.asp 的 实时 视图 设置 


方法 : [GET {v 


VRANE 


图 2-60 “实时 视图 设置 ”对 话 框 

(4) 在 “方法 ”后 面 的 下 拉 列 表 框 中 选择 网 页 递交 表单 时 的 方式 ，POST 或 GET, 
默认 为 GET。 

(5) 选中 “保存 该 文档 的 设置 ” 复 选 框 。 

(6) 设置 完成 后 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 。 

(7) 保存 文档 。 单 击 Dreamweaver 文档 窗口 顶部 的 “刷新 ”按钮 妨 ， 即 可 预览 页 面 
运行 效果 。 此 时 ， 浏 览 器 导航 栏 的 地 址 下 拉 列 表 中 会 出 现 指定 的 URL 请 求 ， 如 图 2-61 所 
7o 


N 
« 


代码 | 拆 分 | 设计 || 实时 视图 | | 实时 代码 WH G c [http: //Localhost/blog/nytest. asp?usern v | [| 


图 2-61 URL 请求 


[LI]. 7.3 动态 文本 


所 有 的 动态 网 页 都 源 于 静态 网 页 ， 可 以 将 静态 网 页 中 的 文本 转换 为 动态 文本 ， 或 者 直 
接 将 动态 文本 放置 在 网 页 中 。 动 态 文本 将 继承 被 替换 文本 的 文本 格式 或 插入 点 的 格式 。 例 
如 ， 选 择 的 文本 已 经 设置 了 CSS 风格 ， 则 替换 该 文本 的 动态 内 容 也 继承 了 该 CSS 风格 。 
也 可 以 通过 Dreamweaver 的 文本 格式 化 工具 改变 或 者 添加 动态 文本 的 格式 。 

创建 动态 文本 的 具体 的 操作 步骤 如 下 : 

C1) 选择 “窗口 ”/“ 绑 定 ” 命 令 ， 打 开 “ 绑 定 ” 面 板 。 

(2) 确认 数据 源 面 板 的 数据 源 列表 中 是 否 有 需要 的 数据 源 。 如 果 没 有 ， 则 可 以 通过 
单 击 恒 按钮 ， 新 建 一 个 需要 的 数据 源 。 

G) 在 文档 窗口 或 者 动态 数据 窗口 中 ， 选 择 网 页 中 需要 替换 的 文本 ， 或 者 单 击 需要 
增加 动态 文本 的 地 方 。 

(4) 在 数据 绑 定 面板 中 ， 从 列表 中 选择 一 个 数据 源 。 对 于 数据 集 类 型 的 数据 源 ， 选 
择 想 要 插入 的 字段 。 

C50 将 数据 源 拖 到 网 页 上 。 这 时 文件 窗口 会 出 现 占 位 符 替 换 选 择 的 文本 或 在 插入 点 


直接 显示 占 位 符 。 可 以 选择 “查看 ” /动态 数据 ”命令 , 在 动态 数据 窗口 中 进行 实时 浏览 。 
在 一 般 情况 下 ， 占 位 符 语 法 形式 为 {数据 集 名 称 .Column}、{Request.Variable} 等 ， 其 中 
Column 表示 从 数据 集中 选择 域 的 名 称 ，Request.Variable 表示 从 客户 端 表单 上 所 传递 过 来 
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的 信息 。 

如 果 需 要 ， 可 以 为 动态 文本 指定 数据 格式 。 例 如 ， 数 据 库 中 包含 日 期 ， 可 以 通过 在 数 
据 绑 定 面板 中 单 击 选择 域 后 面 的 现 | 按 钮 ， 从 弹出 的 菜单 中 选择 “上 日期/ 时间” 命令 ， 从 弹 
出 的 子 菜 单 中 选择 一 种 日 期 格式 。 


Qb. 7.4 动态 图 像 


如 果 经 常 在 网 上 购物 ， 可 以 发 现 每 一 个 网 页 基本 上 都 包括 一 件 商品 的 照片 和 描述 该 商 
品 的 文本 ， 经 常 是 网 页 的 布局 保持 不 变 ， 变 换 的 是 商品 的 照片 和 描述 该 商品 的 文本 。 使 用 
Dreamweaver 的 动态 图 像 和 动态 文本 可 以 很 轻松 地 实现 这 种 功能 ， 其 体 的 操作 步骤 如 下 : 

CI) 新 建 一 个 文档 或 打开 一 个 需要 创建 动态 图 像 的 文档 。 

(2) 将 光标 放置 在 需要 插入 动态 图 像 的 位 置 。 选 择 “ 插 入 ”/“ 图 像 ” 命 令 ， 弹 出 “ 选 
择 图 像 源 文件 ”对 话 框 。 

(3) 在 该 对 话 框 中 的 “选择 文件 名 自 ” 后 面 有 两 个 单 选 按钮 ， 这 里 要 插入 动态 图 像 ， 
应 选择 “数据 源 ” 单 选 按 钮 ， 此 时 对 话 框 中 会 将 数据 源 列 出 ， 如 图 2-62 Pra. 


选择 文件 名 自 : 〇 文件 系统 
(5 数据 源 


pic 
[第 一 个 记录 索引 ] 
[最 后 一 个 记录 索引 ] 


URL: |£ile:///C |/Inetpub/wwwroot/images/ 


在 站 点 定义 中 更 改 默 认 的 链接 相对 于 


图 2-62 ”选择 图 像 源 

(4) 在 数据 源 列表 中 选择 一 个 需要 的 数据 源 。 “URL” 文 本 域 中 自动 填充 相应 的 代码 。 
(5) 设置 完成 后 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 。 
(6) 选择 “文件 ”/“ 保 存 ” 命 令 ， 保 存 文 件 ， 并 在 浏览 器 中 预览 图 片 。 


[Db.7.5 数据 绑 定 

数据 绑 定 解决 了 与 服务 器 访问 数据 库 的 有 关 问 题 ,可 以 把 HTML 对 象 绑 定 到 来 自 一 个 
源 文件 的 数据 上 ， 当 该 页 面 被 加 载 时 ， 页 面 会 自动 从 源 文件 中 提取 数据 ， 然 后 在 该 元 素 内 
进行 格式 化 并 显示 出 来 。 利 用 Dreamweaver， 只 需要 拖 动 网 页 元 素 ， 不 需 编写 任何 代码 就 


«0 4e3deu) 


68 


可 以 插入 动态 文本 或 图 像 ， 将 它们 与 表单 对 象 、 列 表 或 其 他 网 页 对 象 链接 起 来 。 


立 一 个 DSN 指向 数据 库 的 快捷 方式 ， 它 包含 数据 库 连 接 的 一 切 信息 。 
有 关 数 据 绑 定 的 操作 ， 如 数据 连接 、 定 义 数据 源 ， 请 见 第 5 章 的 介绍 。 


2.8 发 布 站 点 


在 使 用 数据 绑 定 将 动态 内 容 添 加 到 网 页 之 前 ， 必 须 建立 一 个 数据 库 连 接 ， 否 则 ， 
Dreamweaver 无 法 使 用 数据 库 作 为 动态 网 页 面 的 数据 源 。 而 在 建立 数据 库 连接 之 前 必须 建 


建立 好 一 个 完整 的 站 点 后 ， 接 下 来 要 做 的 工作 就 是 将 其 传输 到 Internet 服务 器 上 ， 让 


其 他 用 户 可 以 访问 。 


[Dp. 8.1 发 布 前 的 准备 工作 


几 点 


zu 


正 超级 链接 的 操作 。 


C1) 对 网 页 文件 进行 测试 。 发 布 网 页 之 前 ， 应 该 检查 网 页 是 否 有 断 开 的 超级 链接 ， 
站 认 网 页 的 外 观 是 否 合 适 ， 测 试 站 点 中 的 各 文件 能 否 正 确 访问 。 下 面 着 重 说 一 下 检查 并 修 


在 网 页 发 布 之 前 ， 为 了 能 正确 地 发 布 网 页 ， 还 应 该 做 一 些 准备 工作 。 概 括 起 来 有 以 下 


通常 一 个 站 点 包含 的 超级 链接 项 目 非常 多 ， 如 果 逐 一 检查 ， 不 仅 效率 低 ， 而 且 很 容易 
出 错 。Dreamweaver 提供 了 检查 超级 链接 的 功能 ， 利 用 该 功能 可 以 在 极 短 的 时 间 内 检查 修 


正 超级 链接 的 状态 ， 操 作 如 下 : 


打开 一 个 站 点 文件 ， 选 择 “ 站 点 ”/“ 检 查 站 点 范围 的 超级 链接 ” 荣 单 命令 ， 即 可 开始 


检查 当前 站 点 范围 内 的 超级 链接 。 检 查 完成 后 在 窗口 下 方 显示 检查 结果 ， 如 图 


2-63 所 示 。 


‘VER ”搜索 | 参考 | 验证 | 目标 浏览 器 检查 ”链接 检查 器 ”站 点 报告 FER | 服务 器 调试 


= 


ERO: GIERRSCPFREE ARE) 
dE: [IT 
O | Bares text. awe ave 
a T9) /新 建文 件 夹 7Untitled-13. html image/1104. gif 
I9) /新 建文 件 来 /Untitled-2. aspx imagey5. jpg 
E) /新 建交 件 夹 /intitled-2. html inage/S. jpg 
| n PARES HARARE. html image/hxq. jpg 


Deme ET La — 


Lm cere ata he ect cmn r TOT c— E — —-——— Se ae 
总 共 926 ^^, 531 SHTML, 1154 CML. SH 1580 个 链接 ，1125 个 正确 ，237 “Maida. 218 个 外 部 链接 


图 2-63 检查 结果 


该 窗口 的 底部 显示 有 关 文 件 和 链接 情况 的 统计 信息 。 单 击 窗口 左 侧 的 园 图 标 ,可 以 将 


检查 结果 以 文件 形式 保存 。 


选择 “站 点 ” /改变 站 点 范围 的 链接 ” 沫 单 命令 ， 弹 出 “更 改 整 个 站 点 链接 ”对 话 框 。 


单 击 对 话 框 中 上 面 的 文件 夹 图 标 ， 选 择 要 修正 超级 链接 的 文件 ， 然 后 单 击 下 面 的 文件 夹 图 
标 ， 选 择 新 链接 文件 ， 并 单 击 “ 确 定 ” 按 钮 ， 此 时 会 弹出 一 个 确认 更 新 的 对 话 框 。 单 击 “ 更 


新 ”按钮 开始 更 新 ， 单 击 “ 不 更 新 ”按钮 取消 修正 。 


(2) 申请 账号 。 发 布 网 页 前 应 该 先 向 ISP (nternet Service Provider) 申请 一 个 账号 ， 


申请 成 功 后 ，ISP 会 提供 一 份 有 主机 地 址 、 端 口 、 账 号 、 密 码 和 首页 文件 名 称 等 内 容 的 文 
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件 。 


(3) 了 解 服务 器 及 ISP 的 一 些 要 求 。 例 如 ， 服 务 器 的 操作 系统 、Web 服务 器 软件 以 
及 服务 器 网 络 带 宽 等 信息 。 此 外 ， 一 些 ISP 还 对 首页 名 称 、 文 件 名 大 小 写 、 网 页 发 布 的 目 


录 等 项 目 作 了 要 求 。 


Dj 8.2 测试 本 地 站 点 
在 发 布 站 点 之 前 ， 还 应 在 本 机 上 对 本 地 站 点 进行 完整 的 测试 ， 


以 使 网 页 在 浏览 器 中 显 


示 出 预期 的 效果 。 测 试 的 主要 内 容 包括 : 检验 网 页 与 目标 浏览 器 的 兼容 性 、 预 览 网 页 、 检 


验 网 页 的 下 载 时 间 等 。 
C1) 检查 目标 浏览 器 。 目 前 Internet 上 存在 的 浏览 器 种 类 


很 多 ， 且 都 有 各 自 的 标准 。 


测试 网 页 与 目标 浏览 器 的 兼容 性 时 ， 一 般 只 测试 当前 最 流行 的 几 种 浏览 器 


在 Dreamweaver 中 打开 一 个 文件 ， 执 行 “ 文 件 ”/“ 检 查 页 ”/ 
单 命令 。 单 击 弹 出 窗口 左 侧 的 轿 按 钮 ， 从 弹出 的 下 拉 菜 单 中 选择 


“检查 目标 浏览 器 ” 菜 
“设置 ”命令 ， 在 弹出 的 


对 话 框 中 选择 目标 浏览 器 ， 并 设置 其 最 低 版 本 ,然后 单 击 “确定 ”按钮 ， 开 始 检 查 当前 打 


开 网 页 与 选 定 浏览 器 的 兼容 性 。 窗 口 底部 显示 浏览 器 兼容 性 的 检查 结果 。 


如 果 要 检查 整个 本 地 站 点 网 页 与 浏览 器 的 兼容 性 , 单 击 窗口 左 侧 的 莉 按 钮 ， 从 弹出 的 


下 拉 荣 单 中 选择 “检查 整个 当前 站 点 的 目标 浏览 器 ”命令 。 


(2) 预览 网 页 。 在 Dreamweaver 文档 窗口 中 打开 要 预览 的 网 页 ， 然 后 选择 “文件 ”/ 
“在 浏览 器 中 预览 ”菜单 命令 ， 或 直接 按 下 F12 键 ， 即 可 在 浏览 器 中 预览 当前 网 页 。 
(3) 检验 网 页 下 载 时 间 。 在 Dreamweaver 的 设计 视图 的 状态 栏 可 以 查看 当前 打开 网 


页 的 大 小 及 预计 下 载 时 间 。 例 如 : 100K/4 秒 ， 表 示 当 前 页 面 的 大 小 为 100K， 预 计 下 载 时 
间 为 4 秒 。 该 预计 下 载 时 间 是 根据 “首选 参数 ”对 话 框 中 “ 状态 栏 ”分 类 中 的 “连接 速度 ” 


计算 出 来 的 。 文 件 的 实际 下 载 时 间 完 全 依赖 于 计算 机 与 Internet i 
可 以 参考 预计 下 载 时 间 调 整 网 页 内 容 ， 以 获得 较 好 的 下 载 效果 。 


Lib 8.3 网 页 上 传 


连接 的 实际 速度 ， 设 计 者 


本 地 站 点 测试 完毕 后 ， 就 可 以 将 网 页 上 传 对 外 发 布 ， 供 上 网 的 用 户 浏览 。 所 谓 上 传 网 


页 , 就 是 把 本 地 站 点 中 的 所 有 网 页 文件 ， 上 传 到 与 Internet 或 Intra 


net 相连 的 服务 器 上 。 要 


ee 


实现 网 页 上 传 ， 既 可 以 选择 专门 的 网 页 上 传 工具 ， 也 可 以 利 


可 视 化 网 页 制作 工具 自 带 的 


上 传 功能 ， 如 Dreamweaver 中 的 站 点 管理 器 。 下 面 简 要 介绍 网 页 


上 传 的 步骤。 


C) 申请 域名 和 服务 器 空间 。 登 录 域 名 服务 商 网 站 进行 域名 查询 注册 以 及 服务 器 衬 


间 申 请 租用 。 有 关 操 作 请 参阅 相关 资料 说 明 。 


(2) 设置 远程 站 点 。 选 择 “ 站 点 ”/ “管理 站 点 ”菜单 命令 ， 在 弹出 的 窗口 中 选择 


要 上 传 的 站 点 后 ， 单 击 “ 编 辑 ” 按 钮 。 在 弹出 窗口 左边 的 列表 中 选择 “远程 信息 ”列表 项 ， 
然后 从 右边 的 “访问 ”下 拉 框 中 选择 “FTP” 然后 填写 如 下 信息 : 
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FTP 主机 : ISP 指定 的 网 页 上 传 空 间 j 
主机 目录 : 远程 服务 器 上 专门 为 你 建立 的 文件 夹 的 位 置 。 


thk. 


Internet 服务 商 提供 。 


密码 : 进入 系统 的 密码 ， 由 Internet 月 


将 FTP 主机、 主机 目录 、| 


RS 商 提供 。 如 果 勾 选 “ 保 存 ” 复 选 框 ， 可 


试 登录 的 ) 


j 户 名 和 密码 。 


如 果 防 火 墙 配置 要 求 使 ) 


防火 墙 后 面 连接 到 远程 服务 器 ， 
防火 墙 主机 或 端口 。 选 择 “使 用 
护 到 测试 服务 器 的 连接 的 安全 。 


j 户 名 和 密码 等 保存 下 来 。 单 击 “ 测 试 ”按钮 ， 可 以 测 


被 动 式 FTP， 请 选中 “使 用 Passive FTP” 复 选 枉 。 如 果 从 
请 选中 “使 用 防火 墙 ” 复 选 框 ， 单 击 “ 防 火 墙 设置 ”编辑 
安全 FTP (SFTP)” 选 项 可 以 使 / 


Tg MR 


加密 密 钥 和 共 ) 


如 果 希 望 Dreamweaver 自动 同步 本 地 和 远 端 文件 ， 请 选择 “维护 同步 信息 ” 复 选 框 ; 
如 果 希 望 在 保存 文件 时 Dreamweaver 将 文件 上 传 到 远程 站 点 ， 请 选择 “保存 时 自动 将 文 
件 上 传 到 服务 器 ” 复 选 框 ， 如 果 和 希望 激活 “ 存 回 /取出 ”系统 ， 请 选择 “启用 存 回 和 取出 ”。 


所 有 必要 信息 填 妥 后 ， 单 击 “ 确 


(3) 上 传 网 页 。 


by € 将 选 定 网 页 文件 上 传 到 远程 站 点 。 


[[].8.4 远程 与 本 地 站 点 同步 


上 传 站 点 之 后 ， 可 能 会 因 


远程 网 页 文件 不 一 致 的 现象 。 利 用 


方便 用 户 进行 站 点 更 新 维护 。 


选择 “站 点 ”/“ 同 步 站 点 范围 


为 网 页 旬 


定 ”按钮 完成 远程 服务 器 的 设 定 。 
回 到 文件 管理 窗口 ， 此 时 ， 远 程 连接 图 标 s^ 变 为 可 用 状态 。 单 击 ; 
按钮 就 能 自动 登录 远程 站 点 。 登 录 成 功 后 ， 选 定 要 上 传 的 网 页 文件 ， 然 后 单 击 “ 上 传 ” 


R 


ER RRAZ AREE, RDA AEA 


Dreamweaver 的 站 点 同步 功能 可 以 轻松 修正 这 种 问题 ， 


yy AA 
菜单 命令 ， 


在 打开 的 对 话 框 中 设置 同步 的 范围 和 方式 。 


如 果 选 中 “删除 本 地 驱动 器 上 没有 的 远 端 文件 ” 复 选 框 ， 则 将 本 地 没有 的 远程 站 点 上 的 文 


件 删除 。 
单 击 “ 预 览 ” 


劳 边 的 “上 传 ” 按 钮 ， 然 后 单 击 “确定 ”按钮 。 
人 至此， 远程 与 本 机 文件 的 同步 完成 。 


按钮 显示 更 新 设置 预览 对 话 框 。 如 果 存 在 需要 更 新 的 文件 ， 选 中 该 文件 
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E EEES. 
; = i 


Č Visual Studio 是 Microsoft 公司 新 一 代 的 软件 开发 平台 ， 是 :NET ; 


，Framework 的 重要 战略 产品 。ASPNET 作为 Microsoft Visual StudioNET 的 : 
组 成 部 分 之 一 ， 成 为 Internet 和 Intranet 开发 Web 应 用 程序 的 新 一 代 开 发 工 : 
; 具 ， 它 为 特定 类 型 文件 处 理 Web 请 求 ， 即 为 那些 扩展 名 为 .aspx 和 .acsx 的 文 ; 
， 件 处 理 Web 请 求 ， 逐 渐 为 广大 的 Windows 程序 员 普遍 使 用 。ASPNET 引擎 : 
提供 用 来 创建 动态 内 容 的 健壮 的 数据 模型 ， 与 .NET 框架 松散 地 集成 在 一 起 ，， 
: 由 于 这 种 松散 的 集成 ， 因 此 容易 实现 .NET 框架 向 非 Windows 平台 迁移 。 


本 章 将 详细 介绍 ASPNET 的 运行 环境 Microsoft Visual Studio 2010 的 安 ; 


: 装 、 配 置 ， 以 及 在 Visual Studio 2010 中 创建 应 用 程序 、 编 译 、 调 试 的 操作 步 | 


®© 安装 与 配置 VS2010 

®© VS 2010 集成 开发 环境 

© 创建 ASP.NET Web 应 用 程序 
© 配置 IIS 服务 器 


3.1 安装 与 配置 VS 2010 


要 创建 ASPNET 网 站 ， 需 要 安装 .NET Framework, Visual Studio 和 SQL Server 2008 
三 个 组 件 。.NET Framework 是 一 个 用 于 创建 基于 Windows 的 应 用 程序 的 平台 ， 也 是 一 种 
用 于 创建 ASPNET 网 站 的 底层 技术 ， 包 含 ASPNET 引擎 ， 用 于 处 理 ASPNET 网 页 请 求 。 

需要 注意 的 是 , .NET Framework 4 所 支持 的 客户 端 操作 系统 最 低 是 Windows XP SP3, 
服务 器 操作 系统 是 Windows Server 2003 SP2。 尺 管 如 此 ，.NET Framework 4 的 网 站 无 法 部 
TE Windows XP H. AIX XP 带 的 IIS 是 5.1， 而 .NET Framework 4 要 求 的 IIS 版 本 最 低 
是 IS 6， 也 就 是 说 ， Windows XP 只 能 作为 客户 端 。 此 外 ， 若 要 访问 ASP.NET 的 功能 ， 


必须 在 安装 .NET Framework 之 前 先 安装 包含 最 新 安全 更 新 的 HS 。 


= RF is sy 学 者 来 说 ， 使 用 Visual Web Developer 开发 ASP.NET 网 站 是 一 个 不 错 的 


| 建议 。Visual Web Developer 是 一 款 用 于 创建 、 编 辑 和 测试 ASP.NET 网 站 及 网 页 的 免费 
| 编辑 器 ， 可 在 Microsoft 官方 网 站 下 载 。 它 简化 了 创建 ASP.NET 网 页 的 HTML 标记 和 源 
| 代码 的 过 程 。 ASP.NET 网 页 的 HTML 标记 可 使 用 所 见 即 所 得 (WYSIWYG ) 的 图 形 编辑 
| 器 快速 创建 ， 只 需 单 击 几 次 鼠标 ， 就 可 将 各 种 HTML 元 素 拖 放 到 ASP.NET 网 页 并 移动 
| 它们 。 另 外 ，Visual Web Developer 还 提供 了 有 助 于 创建 ASP.NET 网 页 源 代码 的 工具 。 


[Djs 1.1 安装 Visual Studio 2010 


Microsoft Visual Studio 2010 有 多 种 版 本 ， 本 节 以 安装 Microsoft Visual Studio 2010 专 
业 版 为 例 , 介绍 Microsoft Visual Studio 2010 集成 开发 环境 的 安装 步骤 , 其 他 版 本 的 安装 方 
法 与 此 类 似 。 
(1) 将 Microsoft Visual Studio 2010 安装 盘 插 入 光驱 

装 程序 镜像 文件 ， 弹 出 如 图 3-1 所 示 的 安装 界面 


或 使 


日 虚拟 光驱 打开 下 载 的 安 


E 
Cm 


» 


o 


| Off Visual Studio 2010 


on a o MN 


| ER 


Em — fj Service Release 


ion 


图 3-1 Visual Studio 2010 安装 界面 


(2) 单 击 “ 安 装 Microsoft Visual Studio 2010” 链 接 ， 打 开 如 图 3-2 所 示 的 安装 界面 


» 
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入 门 到 精通 


开始 加 载 安 闭 组 件 。 
在 该 界面 中 ， 月 


日 户 还 可 以 选择 是 否 将 安装 体验 发 送 给 Microsoft. 


FREE a o 


OO Visual Studio 2010 c is 


t Visaal Statie 2010 Gitte & 


gagn Microsof 


HOSE FOARA EMSS DONNERIN + 
ne RARI 


Duas" 


A PURHHRIN OL « RIALLAR 


PRUETT. 
——— 


VIR Bherone Corporation RENDER EO — — iid 
LM 


图 3-2” 加载 安装 组 件 


G) 安装 组 件 加 载 完 成 之 后 ， 界 面 右 下 角 的 导航 按钮 变 为 可 月 


按钮 ， 在 弹出 的 对 话 框 中 接受 安装 许可 条 款 ， 然 后 单 击 “ 下 一 
的 安装 界面 。 


” 
ZA 


“> Microsoft Visual Studio 2010 专业 版 安装 得 序 - 选项 页 


安装 


CO Visual Studio 2010 ews 


选择 要 安装 的 功能 G2 - 
DRE 
Be Yun Studio 安装 。 安 装 所 有 编程 语 


功能 说 明 : 
ghY Vi sul Studio 2010 KU oin 


Ert 


D 
E 


AL Server ^ir 
BEX QD 
雄一 页 上 选择 下 安装 的 编程 语 襄 和 工 


产品 安装 路 径 Q0: 


F:\Program Files\Microsoft Visual Studio 10.0% 


人 A TERRENG. BARES, WERE 


所 需 碰 盘 空间 : 
卷 磁盘 大 小 
20.0 GB 
120.0 GB 


可 用 

2.7 GB 
78.4 GB 
E 120.0 GB 7.9 GB 
id 120.0 GB TT.3 GB 


c 
D 


JE, Es. 


HRA. Hub “R— 
按钮 打开 如 图 3-3 所 示 


: 


«T n" 


kiz) GEO | 


取消 | 


多 


3-3 ”选择 要 安装 的 功能 
(4) 选择 要 安装 的 功能 。 建 议 初 学 者 选择 “完全 ”按钮 ， 安 装 


H- 


Microsoft Visual Studio 


AS 


x 


£0 xe3deu) 


2010 集成 环境 和 各 种 组 件 。 在 这 里 可 以 看 到 一 条 警告 信息 ， 提 示 “ 
单 击 “ 安 装 ” 按 钮 ， 进 入 如 图 3-4 所 示 的 安装 界面 ， 开 


“不 能 更 改 安装 路 径 ” 


台 安 装 选择 的 组 件 。 


74 


(2 Microsoft Visual Studio 2010 专业 版 SEF - 2871 


Mopot : 
| OO Visual studio 2010 wie ”安装 


正在 安装 组 件 


目录 : F: \ProgramData\Microsoft\Team Foundation\Work Item Tracking\Custom Controls\10.0\s 
文件 : A tedAutomationControl. 


图 3-4 组 件 安装 过 程 


= RT Visual Studio 2010 时 将 自动 安装 .NET Framework 和 其 他 必 不 可 少 的 
ASP.NET 工具 ， 甚 至 还 可 以 自动 安装 SQL Server 2008. 


(5) 安装 完成 后 ， 单 击 “ 下 一 步 ” 按 钮 进入 如 图 3-5 所 示 的 对 话 框 ， 提 示 用 户 已 成 功 
安装 Microsoft Visual Studio 2010， E 


(L Microsoft Visual Studio 2010 PWE SSF - RED 
j aei men 


"Teak 


| QÉ M Visual Studio 210 t 


成 功 


已 安装 visus] Studio 2010， 并 且 设 置 完 毕 。 


0Z ofpmS pens t g B 


阅读 安全 
* gu itis 
. diens 


充实 您 的 具 箱 。 
Visual Studie 


mex) 
Riek a. wits SRBR SUH. 


DET 
£e 的 mand 动 oe Lins 


图 3-5 Visual Studio 2010 安装 成 功 


(6) 如 果 不 需要 安装 MSDN 文档 ， 单 击 “ 完 成 ”按钮 即 可 完成 安装 ， 并 退出 安装 程 
序 。 建 议 读者 安装 MSDN 文档 (Visual Studio 2010 中 称 之 为 Help Library)， 以 在 开发 过 程 
中 查阅 ， 获 得 较 全 面 的 帮助 。 
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LT ]s. 1.2 3X Help Library 


Microsoft Visual Studio 2010〔( 以 下 简称 VS 2010) 使 用 Help Library 管理 器 管理 、 更 新 
MSDN 文档 。Help Library 无 法 独立 安装 ， 必 须要 先 安装 VS2010 成 功 后 才 可 安装 。 安 装 有 
以 下 两 种 常用 的 方法 : 

(1) 在 安装 完成 VS2010 后 ， 在 如 图 3-5 所 示 的 安装 界面 右 下 角 有 一 个 “安装 文档 ” 
按钮 ， 单 击 该 按钮 弹出 如 图 3-6 所 示 的 “Help Library 管理 器 ”对 话 框 。 

(2) 单 击 对 话 框 右上 角 的 “设置 ?” 弹出 如 图 3-7 所 示 的 对 话 框 ， 选 择 “ 我 要 使 用 本 
地 帮助 ”按钮 ， 然 后 单 击 “ 确 定 ” 按 钮 进入 如 图 3-8 所 示 的 对 话 框 。 


(Ui Heip Ubrary SEM Microsc Help EA 10 =s 


Help Library 管理 器 


FERREUS ESO) 


eK BUSES sac 9 SER Swe) 


46$ ENP 


Ce 
d^ Kae RK 
XK sheen 


IHI 
PA 


W 


图 3-6 “Help Library 管理 器 ” o ifi 3-7 ”设置 对 话 框 

(3) 单 击 需 要 安装 的 内 容 右 侧 的 “添加 ” 选择 用 于 脱 机 帮助 的 内 容 ， 建 议 都 添加 上 ， 
然后 单 击 “ 更 新 ”按钮 ， 即 可 更 新 本 地 库 ， 如 图 3-9 所 示 。 

TECUIUTLIUS c cL MAPIDTCELION T em 


NET Framework 4 - 3:3 (48 A FESEROI) 
* Visual Studio 2010 
Application Lifecycle Management - 3:5: (3:45 A ROAN 


- 
EER S7RURE , 9t 20 + 


C23 
5 
@) 
二 
cr 图 3-8 添加 要 安装 的 文档 内 容 对 话 框 图 3-0 更 新 本 地 库 
us (4) 更 新 完毕 ， 单 击 “ 完 成 ” 按钮 返回 “Help Library 管理 器 ”对 话 框 。 单 击 “ 退 出 ” 
按钮 关闭 对 话 框 。 
© 至 此 ，Help Library 安装 完成 ， 在 VS2010 中 按 Fl 键 即 可 打开 帮助 文档 。 
方法 二 : 
CI l er ee 
如 果 安 装 VS 2010 之 后 关闭 了 图 3-5 所 示 的 界面 ， 可 以 采取 如 下 的 方式 安装 Help 
Library。 
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(D 运行 VS 2010， 执 行 “ 帮 助 ”/“ 管 理 帮助 设置 ” 
的 “Help Library 管理 器 ”对 话 框 。 


菜单 命令 ， 打 开 如 图 3-6 所 示 


(2) 选 择 “ 从 磁盘 安装 内 容 ” 选 项 , 在 弹出 的 对 话 框 中 选择 光盘 中 的 ProductDocumenta 


tion 的 文件 夹 下 的 helpcontentsetup.msha， 然 后 单 击 “确定 ” 
WHE. 


按钮 ， 打 开 如 图 3-8 所 示 的 对 


(3) 单 击 需 要 安装 的 内 容 右 侧 的 “添加 ” 然后 单 击 “ 更 新 ”按钮 ， 即 可 更 新 本 地 库 ， 


如 图 3-9 所 示 。 


[js.1.3 配置 Visual Studio 2010 


VS2010 安装 成 功 之 后 ， 用 户 可 以 根据 自己 的 喜好 和 习惯 对 开发 环境 进行 一 些 简 单 配 


署 ， 以 简化 开发 流程 ， 提 高 工作 效率 。 如 果 使 用 默认 设置 ， 


可 以 跳 过 这 一 节 。 


C1) 在 “开始 ”菜单 中 选择 “所 有 程序 ”/“Microsoft Visual Studio 2010” / “Microsoft 
Visual Studio 2010” 菜 单项 启动 VS2010， 显 示 如 图 3-10 所 示 的 起 始 页 。 


AD] Th 


Kum Windows Web = Office 


5 Visual Studio 
2010 gomme 


图 3-10 ”起 始 页 


如 果 是 第 一 次 启动 ， 将 弹出 一 个 默认 的 环境 设置 选择 界面 。ASPNET 网 页 的 源 代 码 可 


因此 选择 “Visual Basic 开发 设置 ”。 


使 用 多 种 编程 语言 编写 , 本 书 将 使 用 Microsoft 公司 的 Visual Basic 编程 语言 进行 实例 讲解 ， 


(2) 选择 “工具 ”/“ 选 项 ”菜单 命令 ， 打 开 如 图 3-11 所 示 的 “选项 ”对 话 框 。 


(3) 切换 到 “环境 ”/“ 字 体 和 颜色 ”分 类 ， 打 开 如 图 


3-12 所 示 的 界面 。 在 “显示 其 


设置 ”下 拉 列 表 中 选择 “文本 编辑 器 ”， 可 以 更 改 默认 字体 、 调 整 字体 大 小 以 及 更 改 不 同 


的 文本 显示 项 的 前 景色 和 背景 色 。 
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"ET EAE 
=A 10 "B0 荣 单 中 显示 的 项 (W) 
ignes 
ss 10 — "Burt iré" 列表 中 显示 的 项 (R) 
项 目 和 解决 方 实 
、 文 本 编辑 器 视觉 体验 
Windows 窗 体 设计 器 


团 基 于 客户 端 性 能 自动 调整 视觉 体验 (A) 
回 启 用 丰富 客户 湛 视 觉 体验 (E) 
] 如 果 可 用 ， 请 使 用 硬件 图 形 加 速 (U) 


Visual Studio 当前 正在 使 用 硬件 加 速 呈 现 。 视 觉 体验 设置 将 合 动 基于 系统 功能 进行 
Er 


caseo mm 


图 3-11 “选项 ”对 话 框 


mR pm z| | 0m 
Eur d 
[52 FETED: UNS): 
REORASR p - 100 ~ 
De a sd 
2 Basic 2 BED EMEEN: 
ve ae - - | meg. | 
bed ARTE - LL | 
HTML asmens 
Windows BS mons EE [一 -一 一- 一 
Fs Orua - aas- 
Bata 
C/C» + Rie up ed 
CSS xb 
Css PERE E 
css ged NN 
css Nee 
E ij = 1::00(0xB811) 


图 3-12 “字体 和 颜色 ”面板 


(4) 切换 到 “项 目 和 解决 方案 ”分 类 ， 在 如 图 3-13 所 示 的 界面 中 设置 用 于 在 纪 
发 环境 中 开发 和 生成 项 目 和 解决 方案 的 默认 选项 。 


Tit 
E 
4 


MBG): 
FAUSers Vanilla Documents Visual Studio 2010\Projeets - | 


ARMED: Et 
TAUsersiVanilla Documents Visual Studio 2010\Templates\ProjectTem [ = | 


HI RARE): 
FA\Users\Vanilla\Documents\Visual Studio 2010\Templates\itemTemph | u | 


‘ee 7 EALEUSHNMER ， ETA 
VB 专用 


Y ERAS RESIN) 
i wae v tmetsE RD 
Windows Shiites BSTONSEG 
Cosas eso wo 
T WBGONASRGREEB^U 
TER B ees) 
ESE THIESES) 


eo ZT31ded) 


图 3-13 “项 目 和 解决 方案 ”面板 
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(5) 切换 到 “文本 编辑 器 ”分 类 ， 选 择 “Basic” 下 的 “编辑 器 ”， 然后 在 如 图 3-14 


所 示 的 界面 右 侧 的 选项 区 域 勾 选 “ 行 号 ” 复 选 框 ， 以 显示 代码 中 的 行 号 。 


m E mdi 
a a 
zR arem Eu] 
imm »g) 
wz 
RUM e we» 
Ed BASAND: a 
4 Basic 
VB er SEE AND: 4 
wae 
HTML 
Windows BEEGEHBE zz 
EE nu 
zn 
OON ONE) [aa] Ro 
e — - 


图 3-14 “编辑 器 ”面板 


(6) 切换 到 “Windows 窗 体 设计 器 ”分 类 ， 在 这 里 VS 2010 提供 了 大 量 有 助 于 设计 
Windows 窗 体 应 用 程序 的 选项 。 其中,“ 自 定义 数据 UL” 面板 用 于 设置 要 显示 在 “数据 源 ” 
窗口 中 的 每 个 表 和 列 的 控件 ;“ 常 规 ” 面 板 用 于 更 改 VS 2010 中 可 视 化 设计 器 的 默认 设置 ， 
如 图 3-15 所 示 。 


= a) 
环境 布局 设置 
常规 GridSize 8,8 
Ske LayoutMod SnapLi 
ShowGrid True 
项 目 和 解决 方案 SnapToGrid True 
ES 代码 生成 设置 
VB BRAG 优化 代码 生成 加 True 
soe 4 对 象 十 定 智能 标记 设置 
Windows 窗 休 设计 句 自动 打开 智能 标记 True 
rr 工具 箱 
自 定 义 数据 UI 
AutoToolboxPopulate True 
SR 2 m 
| EnableRefactoringOnRename True 


AutoToolboxPopulate 
切换 是 否 由 项 目 生成 的 组 件 自动 填充 工具 箱 。 为 使 更 改 生效 ,必须 关闭 并 重新 打开 当 
前 的 解决 方案 。 


— = IL 


-= 


图 3-15 “Windows 窗 体 设 计 器 ”面板 


接 下 来 将 常用 的 工具 〔 例 如 “开始 执行 (不 调试 )”) 调 出 来 ， 放 置 在 工具 栏 上 。 

CD 在 工具 栏 的 空白 区 域 单 击 鼠 标 右键 ， 在 弹出 的 快捷 菜单 中 选择 需要 的 工具 栏 ， 
例如 ， 如 图 3-16 所 示 的 “生成 ” 

此 外 ， 还 可 以 自 定 义工 具 栏 ， 添 加 或 删除 常用 的 工具 按钮 。 

(8) 单 击 工具 栏 右 侧 的 倒 三 角 ， 在 弹出 的 下 拉 列 表 中 选择 “添加 或 删除 按钮 ”/“ 自 


» 


定义 ” 荣 单 项 ， 弹 出 如 图 3-17 所 示 的 “ 自 定义 ”对 话 框 。 
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HTML 源 编辑 
Microsoft Office Excel 
Microsoft Office Word 
Ribbon 编辑 器 
Transact-SQL 编辑 器 
Web 一 键 式 发 布 

Web 浏览 器 

XML 编辑 器 

Riese 

对 话 框 编辑 器 

工作 流 

工作 项 跟踪 

布局 

mx IBEQ| $0) | 

报表 格式 SABER AE: 

D FHB): 菜单 栏 
eImET: [tnt 

数据 设计 D 上 下 文 菜单 (X): | 编 加 器 上 下 文 菜单 


查询 设计 器 

标准 
样式 表 
格式 设置 
MLA 
源 代码 管理 


源 代 码 管理 - Team Foundation 


IHI 


图 3-16 ”快捷 荣 单 图 3-17 “Ae” X IE 


(9) 单 击 “ 自 定义 ”对 话 框 右 侧 的 “添加 命令 ”按钮 ， 弹 出 如 图 3-18 所 示 的 “添加 
令 ” 对 话 框 ， 在 对 话 框 左 侧 选择 类 别 ， 然 后 在 右 侧 的 “命令 ”列表 中 选择 需要 添加 的 命 


选择 要 添加 的 命令 , 然后 单 二 “确定 ”。 


368(6): 命令 (D): 
- 一 Fe 
| rese O ZARENA 
工作 流 设 计 器 E] Rae 
d Hà XSLT 而 不 调试 
FASER E 


四 > 开始 调试 XSLT 


£0 xe3deu) 


图 3-18 “添加 命令 ”对 话 框 
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3.2 Visual Studio 2010 集成 开发 环境 


“ 工 欲 善 其 事 ， 必 先 利 其 器 ” 本 节 将 简要 介绍 Visual Studio 2010 集成 开发 环境 ， 让 
读者 对 ASPNET 项 目的 开发 环境 和 开发 流程 有 一 个 初步 的 了 解 ， 对 之 后 的 开发 过 程 将 起 
到 事半功倍 的 效果 。 
首先 执行 以 下 步骤 进入 Visual Studio 2010 集成 开发 环境 。 

(1) 启动 VS 2010 后 ， 在 起 始 页 上 单 击 “ 新 建 项 目 ” 或 者 在 工具 栏 上 单 击 “ 新 建 项 
目 ” 按 钮 图 或 “新 建 网 站 ”按钮 量 ， 即 可 打开 对 应 的 模板 ， 图 3-19 所 示 为 “新 建 网 站 ” 
的 模板 对 话 框 。 


[.NET Framework 4 ~ | HEBR Br 
|| BeH k i 
| 一 T aene pi Visual Basic | TE Visal Basic 
| ASP.NET 网 站 
Visual OF Q sone mas Visual Basie 
X ASP.NET Dynamic Data 实体 网 站 Visual Basic 
| * ASP.NET Dynamic Data Ling to SQL 网 站 Visual Basic 
i| -一 
I Mags WCF ES Visual Basic | 
Fa ASP.NET Reports 网 站 Visual Basic i 
m ASP.NET Crystal Reports 网 站 Visual Basic 
A 
| Ow 
ES 
< 
| DB 
[e 
—— | 2 
| Web 位 置 — | REE m| DAmusicnet WebSitet > | eave). | | E 
J nN 
= 7 
- — —ámmáÁ— S 
[en 
nm 
[11 v » o 
Sep. ZH E à Ir 
图 3-19 “新 建 网 站 ”对 话 杠 NN 
oO 


(2) 在 对 话 框 左 侧 区 域 指定 项 目的 源 代码 编程 语言 ， 本 书 选择 Visual Basic. 
(3) 在 对 话 框 顶部 的 下 拉 列 表 中 选择 .NET Framework 的 版 本 ， 本 书 选 择 .NET Frame 
work 4 作为 目标 框架 。 
VS2010 支持 多 定向 ， 该 功能 提供 了 .NET Framework 向 下 版 本 兼容 的 支持 。 也 就 是 说 ， 
用 户 可 以 根据 自己 的 需要 在 Visual Studio 2010 里 开发 基于 .NET Framework 4、.NET 
Framework3.5、.NET Framework 3.0、.NET Framework 2.0 等 相关 版 本 的 软件 项 目 ， 也 可 以 
将 任何 .NET2.0、.NET 3.0, .NET 3.5 版 本 的 项 目 升级 到 .NET 4. 
(4) 选择 项 目 模板 。 不 论 是 使 用 新 建 网 站 模板 创建 Web 项 目 ， 还 是 使 用 新 建 Web 应 
用 程序 模板 创建 Web WH, VS2010 都 会 提供 两 种 模板 供用 户 选 择 。 以 新 建 网 站 模板 为 例 ， 
使 用 “ASPNET 空 网 站 ”模板 创建 的 是 一 个 空 的 Web 项目， 新 建 的 网 站 只 包含 一 个 文件 


web.config。 而 使 用 “ASPNET 网 站 ”模板 创建 的 Web 项 目 是 一 个 带 有 许多 开发 模板 
文件 的 项 目 ， 包 含 文件 夹 Account, App Data. Scripts 和 Styles, WAA About.aspx、 
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Default.aspx 和 Global.asax 等 文件 。 建 议 初学 者 使 用 “ASPNET 空 网 站 ”模板 创建 网 站 。 


(5) 指定 项 目的 位 置 。 在 本 地 计算 机 上 创建 新 网 站 时 ， 可 以 使 用 3 种 方式 : 文件 系 
St. FIP 和 HTTP， 在 如 图 3-19 所 示 的 对 话 框 左下 角 的 下 拉 列 表 中 可 以 选择 。 如 果 要 在 本 
地 通过 文件 系统 托管 网 站 ， 则 在 “Web 位 置 ” 下拉 列 表 中 选择 “文件 系统 ” 然后 单 击 “ 浏 
览 ”按钮 ， 在 弹出 的 “选择 位 置 ”对 话 框 中 指定 网 站 的 保存 位 置 。 本 书 中 的 所 有 项 目 都 采 
取 这 种 方式 。 

如 果 要 在 远程 计算 机 上 托管 网 站 ， 可 选择 “FTP” 或 “HTTP”， 并 指定 相关 的 配置 设 
置 , 如 服务 器 端口 、 远 程 服 务 器 的 URL、 用 户 名 和 密码 等 。 读者 有 兴趣 可 以 参阅 相关 书籍 ， 
本 书 不 作 介绍 。 

(6) 完成 以 上 设置 之 后 ， 单 击 “ 确 定 ” 按 钮 ， 即 可 创建 一 个 新 项 目 ， 此 时 ， 在 对 话 
框 右上 角 的 “解决 方案 资源 管理 器 ”窗口 中 可 以 看 到 新 建 的 项 目 及 默认 的 配置 文件 ， 如 图 
3-20 所 示 。 可 以 看 出 ，VS 2010 的 工作 界面 主要 由 标题 栏 、 菜 单 栏 、 工 具 栏 、 工 具 箱 、 页 
面 设 计 窗 口 与 解决 方案 资源 管理 器 等 几 个 部 分 组 成 。 下 面 简 要 介绍 一 下 VS 2010 集成 开发 
环境 的 各 个 组 成 部 分 以 及 它们 各 自 的 功能 。 
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图 3-20 新建 的 项 目 


Las. 2.1 控件 工具 箱 

控件 工具 箱 为 开发 者 提供 了 丰富 的 控件 。 在 Web 项 目的 开发 中 , 利用 工具 箱 不 需要 编 
写 任何 代码 ， 只 需 使 用 鼠标 “ 拖 忠 ”就 可 轻松 地 进行 Web 表单 的 界面 设计 ， 并 且 这 些 控件 
都 是 跨 浏 览 器 和 跨 设 备 运 行 的 。 


在 如 图 3-21 所 示 的 界面 左 侧 单 击 国 要 下 先 项 板 ， 即 可 展开 工具 箱 。 
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工具 箱 的 内 容 取决 于 当前 正在 使 用 的 设计 器 ， 也 取决 于 当前 的 项 目 类 型 。 


用 户 可 以 根据 自己 的 使 用 习惯 自 定 义工 具 箱 的 标签 以 及 标签 内 的 项 ， 在 标签 顶部 单 击 
鼠标 右键 , 在 弹出 如 图 3-22 所 示 的 快捷 菜单 中 选择 “添加 选项 卡 ” “删除 选项 卡 ” 或 者 “ 重 
命名 选项 卡 ” 命 令 。 
在 工具 箱 的 空白 处 单 击 右键 ， 然 后 在 弹出 的 快捷 菜单 中 选择 “选择 项 ”命令 ， 可 以 添 
加 一 个 或 者 多 个 项 ， 如 图 3-23 所 示 。 
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EL: |+ 
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koe 
中 AccessDataSource 
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42 DataPager 
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动态 数据 E 重 命名 选项 卡 (R) 添加 选项 卡 (A) 
= LEU) HEU) < 
HTML Few FEW e 
4 8 ~ 2 
L 
图 3-21 控件 工具 箱 图 3-22 ” 自 定 义 标签 以 及 项 快捷 菜单 ”图 3-23 编辑 项 快捷 菜单 = 
[2n 
nm. 
o 
N 
oss 
[is. 2. 2 页 面 编辑 窗口 S 


VS2010 工作 界面 的 中 间 区 域 即 为 页 面 编辑 窗口 ， 在 这 里 可 以 设计 页 面 、 编 写 HTML 
代码 、 编 写 C# 以 及 设计 类 图 等 。 

Visual Studio 提供 了 三 种 Web 页 面 的 设计 模式 ,分 别 适合 于 不 同 设计 喜好 的 设计 人 员 。 
单 击 页 面 编辑 窗口 底部 的 三 个 按钮 :“ 设 计 ”“ 拆 分 ”和 “ 源 ” 即 可 便捷 地 在 不 同 设计 模 
式 之 间 进 行 切 换 。 

(1)“ 设 计 ” 模 式 : 如 图 3-24 所 示 ， 它 提供 纯 页 面 式 的 WYSIWYG 设计 ， 页 面 元 素 
拖 上 忠 上 去 后 就 能 实时 看 到 设计 的 效果 。 
在 Web 应 用 程序 的 页 面 设计 中 ， 将 工具 箱 中 的 Web 服务 器 控件 拖 忠 到 页 面 设计 窗口 
设计 页 面 布 局 ， 同 时 会 自动 生成 相应 的 页 面 HTML 代码 。 若 要 修改 Web 服务 器 控件 的 相 
关 属 性 ， 只 需要 选中 该 Web 服务 器 控件 ， 然 后 在 控件 的 属性 设置 窗口 设置 控件 的 属性 。 


(2)“ 源 ”模式 : 如 图 3-25 所 示 ， 它 提供 纯 HTML 代码 方式 的 设计 模式 ， 适 合 于 对 
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HTML 代码 比较 熟悉 的 设计 人 员 。 

《3)“ 拆 分 ”模式 : 如 图 3-26 所 示 ， 它 合并 了 上 面 两 种 设计 模式 ， 使 设计 者 既 能 够 看 
到 页 面 的 设计 效果 又 能 看 到 页 面 的 HTML 代码 。 

在 “设计 ”视图 中 选中 页 面 元 素 , 对 应 的 HTML 代码 即 可 在 “ 源 ” 视 图 中 以 灰 底 显示 。 
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[[l.2.3 解决 方案 资源 管理 器 


图 3-26 “ 拆 分 ”模式 


解决 方案 资源 管理 器 默认 位 于 VS 集成 开发 环境 的 右 侧 ， 从 本 质 上 说 是 一 个 可 视 化 的 


m 


文档 管理 系统 ， 如 图 3-27 所 示 。 


在 这 里 ， 不 仅 可 以 查看 整个 项 目的 项 目 文件 ， 


决 方案 下 根据 需要 任意 添加 、 修 改 、 删 除 子 项 目 


还 可 以 管理 项 目 解决 方案 ， 并 在 项 目 解 
或 者 其 他 杂项 文件 等 ， 也 可 以 对 项 目下 的 


文件 进行 各 种 操作 ， 所 有 的 这 些 操作 都 可 以 通过 鼠标 右键 完成 。 


Da. 2.4 服务 器 资源 管理 器 


执行 “视图 ”/“ 服 务 器 资源 管理 器 ” 沫 单 命 令 ， 即 可 打开 服务 器 资源 管理 器 ， 如 图 


3-28 所 示 。 


服务 器 资源 管理 器 提供 了 一 个 树 状 功能 列表 ， 它 允许 设计 者 使 用 当前 机 器 上 《以 及 网 


络 上 的 其 他 服务 器 ) 各 种 类 型 的 服务 。 类 似 于 计 
器 来 了 解 机 器 上 可 用 的 事件 日 志 、 消 息 队 列 、 性 


算 机 管理 工具 ， 一 般 使 用 服务 器 资源 管理 


能 计数 器 、 系 统 服务 和 SQL Server 数据 库 。 


其 实 它 不 仅 可 以 让 设计 者 快速 地 浏览 服务 器 资源 , 同时 也 可 以 和 这 些 资源 交互 。 例 如 ， 


可 以 使 用 服务 器 资源 管理 器 创建 一 个 数据 库 ， 执 行 查 询 语句 ， 并 且 编 写 存储 过 程 ， 所 有 这 


些 操作 都 类 似 于 使 用 SQL Server 提供 的 企业 管理 
操作 ， 用 鼠标 右 击 该 项 即 可 。 


器 的 操作 。 若 要 了 解 对 选 定 的 项 可 进行 的 
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决 方案 资源 管理 丹 — OX 2) | % *4 gg 

=) 2) 2a) Ha we ill SharePoint 连接 

ÉP D:\musicnet\WebSite1\ 
国 Account 
4$ App_Data 4 |E LocaleBBS.mdfi | 
Scripts > Em 数据 库 关 系 图 


Styles Gz 

E] About.aspx a 视图 

Es] Default-aspxj Ca 存储 过 得 

P Global.asax Im BR 

O Site.master 同义词 

i3 Web.config mE 
程序 集 


图 3.27 “解决 方案 资源 管理 器 ”窗口 图 3-28 “服务 器 资源 管理 器 ”窗口 


[[]s.2.5 属性 设置 面板 


属性 设置 面板 用 于 查看 和 更 改 位 于 编辑 器 和 设计 器 中 的 选 定 对 象 的 设计 时 属性 及 事 
件 ， 以 及 文件 、 项 目 和 解决 方案 的 属性 。 执 行 “ 视 图 ”/“ 属 性 窗口 ” 荣 单 命令 ， 即 可 打开 
属性 设置 面板 ， 如 图 3-29 Pra. 

下 面 简要 介绍 该 面板 中 各 按钮 的 功能 。 

(1) 对 象 名 :“ 属 性 ”窗口 最 顶端 的 下 拉 列 表 显 示 当 前 选 定 对 象 的 名 称 。 如 果 选 择 了 
多 个 对 象 ， 则 显示 所 有 选 定 对 象 的 通用 属性 。 

(2) 按 分 类 顺序 绰 : 按 字母 顺序 列 出 类 别 ， 并 显示 选 定 对 象 的 所 有 属性 及 属性 值 。 

(D 按 字 母 顺序 包 ， 按 字母 顺序 对 选 定 对 象 的 所 有 设计 时 属性 和 事件 排序 。 若 要 编 
辑 可 用 的 属性 ， 请 在 它 右 边 的 单元 格 中 单 击 并 输入 更 改 内 容 。 

(4) 属性 旦 :显示 选 定 对 象 的 属性 。 

(5) 事件 ”: 显示 选 定 对 象 的 事件 ， 如 图 3-30 所 示 。 


< 


GridControll System.Web.ULWebCor ~ 
Mae 


AllowSorting False 


Alternatingltems 
AutoGenerateCc False 
BackColor 
BackImageUrl 
BorderColor Black 
BorderStye ^ NotSet 


| E EPIS Wesseseses EE 


图 3-29 属性 设置 面板 13-30 ”显示 事件 

(6) BEKE: 显示 选 定 项 的 “属性 页 ”对 话 框 或 “项 目 设计 占 ”。 使 用 该 按钮 可 查 
看 和 编辑 与 项 目的 活动 配置 相关 的 属性 。 

CD 按 属 性 源 排序 ， 按 源 对 属性 进行 分 组 ， 如 继承 、 应 用 的 样式 ， 以 及 绑 定 。 仅 当 


£0 1ə4dey9 
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在 设计 器 中 编辑 XAML 文件 时 该 项 可 用 。 


[L].2.6 错误 列表 


错误 列表 提供 Visual Studio 通过 检测 有 问题 的 代码 而 产生 的 出 错 信 息 。 
在 Visual Stuido 中 生成 一 个 有 错误 的 项 目 时 ， 错 误 列 表 会 自动 出 现 ， 如 图 3-31 所 示 。 


-Hx 


错误 列表 
Osme | A01 |O 00E | 


说 明 文件 行 5 项目 
问 。 
Q 59 当前 块 中 已 声明 了 局 部 变量 “i”。 ValidateCodeControl.ascx.vb 74 
Q 60 未 声明 “Color”。 它 可 能 因 其 保护 级 别 而 不 可 访 ValidateCodeControl.ascx.vb 78 
Al. 
Q 61 未 定义 类 型 “Pen" , ValidateCodeControl.ascx.vb 81 = 


图 3-31 “错误 列表 ”窗口 


从 上 图 可 以 看 到 ， 错 误 列表 有 三 个 选项 按钮: 

C1)“ 错误 ”表示 比较 严重 的 错误 ， 如 果 不 修 改 这 些 错误 程序 将 无 法 编译 成 功 。 

(2) it", 表示 潜在 性 错误 ， 比 如 定义 了 多 余 的 变量 、 用 到 了 不 符合 标准 的 HTML 
标签 等 ， 这 种 错误 不 影响 程序 的 编译 ， 但 会 带 来 潜在 的 错误 。 

(3)“ 消 息 ” 显示 编译 器 消息 。 

错误 列表 的 每 一 项 都 由 一 个 文本 描述 和 一 个 链接 组 成 ， 单 击 链接 能 定位 到 项 目 中 出 错 
程序 代码 的 指定 行 。 


3.3 创建 ASP.NET Web 应 用 程序 


FEA ASP.NET 网 站 时 , 创建 的 ASPNET 网 页 保存 在 个 人 计算 机 上 , 为 测试 这 些 页 面 ， 
计算 机 必须 安装 Web 服务 器 。 

早 在 Visual Studio 2005 的 时 候 ，Visual Studio 开发 环境 中 就 内 建 了 一 个 轻 量 级 的 Web 
服务 器 ASP.NET Development Web Server， 人 允许 用 户 不 用 为 Web 应 用 程序 创建 IS 就 能 够 
调试 和 运行 Web 应 用 程序 项 目 。 它 只 在 Visual Studio 运行 时 才 运 行 ， 并 且 只 接受 来 自 本 地 
计算 机 的 请 求 。 

当 Visual Studio 启用 集成 的 Web 服务 器 时 ,将 在 系统 托盘 中 添加 一 个 图 标 ， 双击 该 区 
标 可 以 获取 关于 内 建 Web 服务 器 的 更 多 信息 ， 或 者 关闭 内 建 Web 服务 器 。 


R] 


[[]s.3.1 创建 解决 方案 


在 Visual Studio 中 创建 任何 一 个 项 目 时 ， 都 要 先 创建 一 个 解决 方案 。 一 个 解决 方案 可 
以 包含 多 个 项 目 ， 而 一 个 项 目 通常 可 以 包含 多 个 项 ， 项 可 以 是 项 目的 文件 和 项 目的 其 他 部 
分 ， 如 引用 、 数 据 连接 或 文件 夹 等 。 


在 Visual Studio 中 创建 解决 方案 非常 简单 ， 当 使 用 Visual Studio 创建 一 个 新 项 目 时 ， 
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Visual Studio 就 会 自动 生成 一 个 解决 方案 。 然 后 根据 需要 将 其 他 项 目 添加 到 该 解决 方案 
H, Visual Studio 将 解决 方案 的 定义 分 别 存储 在 .sln 文件 和 .suo 文件 中 。 其 中 解决 方案 定 


XPE Csin) 存储 定义 解决 方案 的 元 数据 ， 主 要 包括 : 解决 方案 相关 项 目 ; 在 解决 方案 
级 可 用 的 、 与 具体 项 目 不 关 联 的 项 ; 设置 各 种 生成 类 型 中 应 用 的 项 目 配置 的 解决 方案 生成 
配置 。 

在 Visual Studio 中 打开 .sln 文件 就 能 够 打开 整个 项 目的 解决 方案 ， 而 .suo 文件 存储 解 
决 方案 用 户 选 项 记录 所 有 将 与 解决 方案 建立 关联 的 选项 ， 以 便 在 每 次 打开 时 ， 都 包含 用 户 
所 做 的 自 定义 设置。 


注意 : 

= .sln 文件 可 以 在 开发 小 组 的 开发 人 员 之 间 共 享 , 而 . suo 文件 是 用 户 特定 

的 文件 ， 不 能 在 开发 人 员 之 间 共 享 。 因 此 ，. suo 文件 默认 处 于 隐藏 状态 。 

尽管 Visual Studio 2010 提供 了 许多 现成 的 解决 方案 帮助 项 目 开 发 人 员 降 低 开 发 的 工 
作 量 ， 加 快 开 发 进度 ， 如 多 项 目 解决 方案 、 临 时 项 目 解决 方案 、 独 立项 目 解 决 方案 等 。 但 
是 在 实际 项 目 开 发 中 ， 还 是 建议 使 用 空白 解决 方案 。 使 用 空白 解决 方案 可 以 在 一 个 解决 方 
案 中 建立 一 个 或 者 多 个 相关 联 的 项 目 ， 以 免除 在 多 个 解决 方案 之 间 不 停 转 换 、 项 目 调试 困 
难 等 麻烦 ; 可 以 建立 多 项 目 解决 方案 ， 将 多 个 项 目 纳入 一 个 空白 解决 方案 中 ， 用 解决 方案 
文件 夹 进行 统一 管理 ， 可 以 在 解决 方案 中 独立 处 理 “ 杂 项 文件 ”文件 夹 中 的 文件 ， 而 不 需 
要 特定 项 目 参与 。 总 之 ， 空 白 解决 方案 项 对 于 管理 单个 解决 方案 的 多 个 项 目 、 杂 项 文件 、 
解决 方案 项 等 提供 了 简便 、 独 立 的 管理 平台 ， 因 而 可 以 在 很 大 程度 上 降低 开发 人 员 的 工作 
量 ， 缩 短 项 目 开发 的 周期 。 

如 果 要 创建 不 包含 任何 项 目的 空白 解决 方案 ， 可 以 执行 以 下 的 步 又; 

(1) 启动 VS 2010. 

(2) 在 VS 2010 集成 开发 环境 主 窗 体 的 工具 栏 中 选择 “文件 ”/“ 新 建 项 目 ” 菜 单 命 


令 。 


(3) 在 弹出 的 “新 建 项 目 ” 对 话 框 左 侧 的 “已 安装 的 模板 ”列表 中 选择 “其 他 项 目 
类 型 ”节点 并 展开 ， 选 中 “Visual Studio 解决 方案 ”列表 ， 并 在 模板 列表 中 选择 “空白 解 
决 方案 ”模板 ， 如 图 3-32 Wim. 


emn 


图 3-32 “新 建 项 目 ” 对 话 框 
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(4) 在 “名 称 ”文本 框 中 输入 解决 方案 的 名 称 ， 单 击 “ 位 置 ”文本 框 右 侧 的 “浏览 ” 


按钮 设置 解决 方案 的 存储 路 径 ， 其 他 选项 采用 默认 设置 ， 然 后 单 击 “ 确 定 ”按钮 。 


(3.3.2 添加 Web ME 


在 解决 方案 中 添加 ASPNET Web 项 目的 操作 步骤 如 下 : 

(1) 在 解决 方案 资源 管理 器 里 选中 要 添加 项 目的 解决 方案 。 

(2) 布 击 鼠 标 ， 在 弹出 的 快捷 菜单 里 选择 “添加 ”/“ 新 建 项 目 ”或 “新 建 网 站 ” 命 
令 ， 就 会 弹出 “添加 新 项 目 ” 或 “添加 新 网 站 ”对 话 框 。 

(3) 在 “添加 新 项 目 ” 对 话 框 左 侧 的 “已 安装 的 模板 ”列表 中 选择 “Visual Basic" 
节点 并 展开 ， 选 中 “Web” 项 ， 然 后 在 模板 列表 中 选择 “ASPNET ^ Web 应 用 程序 ” 模 
板 , 如 图 3-33 所 示 ; 或 者 在 “添加 新 网 站 ”对 话 框 左 侧 的 “已 安装 的 模板 ”列表 中 选择 “Visual 
Basic” 节 点 ， 然 后 在 模板 列表 中 选择 “ASPNET 空 网 站 ”模板 ， 如 图 3-34 所 示 。 


toporar 


Werk 


Woe Bowe 


图 3-34 XEFE “ASP.NET 网 站 ”模板 
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(4) 在 “名 称 ” 文 本 框 中 输入 ASPNET Web 项 目的 名 称 ， 在 “位 置 ” 文 本 框 中 选择 


项 目的 存储 路 径 ， 其 他 选项 默认 ， 单 击 “ 确 定 ” 按 钮 。 这 样 ， 一 个 完整 的 ASP.NET Web 


项 目 便 创建 完成 了 。 
在 Visual Studio 2010 中 ， 构 建 ASPNET Web 项 目 可 以 使 ) 


了 创建 Web Dy} 


程序 和 创建 


Web 网 站 两 种 方式 ， 这 是 初学 者 经 常 感到 迷茫 的 一 个 问题 。 下 


而 简要 介绍 一 下 


方式 的 区 别 。 
1. 整体 结构 


Ws 


Web 应 


程序 是 按 项 目 进行 管理 的 , 只 有 被 项 目 文件 所 引 ) 


这 两 种 构建 


的 文件 才 会 在 解决 方案 资 


源 管理 器 中 出 现 , 而 且 只 有 这 些 文件 才 会 被 编译 。 项 目的 文件 都 是 按照 命名 空间 来 管理 的 ， 


Web 应 用 程序 可 以 非常 方便 地 引用 其 他 的 类 库 ， 并 且 自 己 本 喘 也 可 以 作为 类 库 被 引用 ， 非 


常 适合 于 项 目 分 模板 进行 开发 。 


Web 网 站 采用 了 全 新 的 开发 结构 ， 是 完全 面向 Web 开发 的 ， 一 个 目录 结构 就 是 一 个 


FL Web 网 站 不 可 以 作为 类 库 被 引用 。 
2. 编译 部 署 


Web 项 目 ， 目 录 下 的 所 有 文件 都 作为 项 目的 一 部 分 而 存在 。 它 抛弃 了 命名 空间 的 概念 ， 并 


调试 或 者 运行 Web 应 用 程序 页 面 时 ， 必 须 编 译 整个 Web 项 目 。 所 有 
成 一 个 应 用 程序 集 ， 部 署 的 时 候 ， 只 需要 把 这 个 应 用 程序 集 和 .aspx 文件 、.ascx 文件 、 配 


置 文件 以 及 其 他 静态 内 容 文 件 一 起 部 署 。 由 于 Visual Studio 使 | 


] 增 量 编 译 模式 ， 仪 仪 只 有 


文件 被 修改 后 ， 这 部 分 才 会 被 增 量 编译 进去 ， 这 种 模型 下 ，.aspx 文件 将 不 被 编译 ， 当 浏 


的 类 文件 被 编译 


览 器 访问 这 个 页 面 的 时 候 ， 才 会 被 动态 编译 。 而 在 Web 网 站 项 目 中 的 所 有 的 Code-Behind 


类 文件 和 独立 类 文件 都 被 编译 成 一 个 独立 的 应 用 程序 集 ， 这 个 应 月 


程序 集 被 放 在 Bin 目录 


下 。 由 于 是 一 个 独立 的 应 用 程序 集 ， 用 户 能 够 指定 应 用 程序 集 的 名 字 、 版 本 、 输 出 位 置 等 
信息 。 在 默认 情况 下 ， 当 运行 或 调试 任何 Web 页 的 时 候 ，Visual Studio 会 完全 编译 Web 


网 站 项 目 ， 开 发 者 可 以 看 到 编译 时 的 所 有 错误 。 但 是 ， 在 开发 进程 中 ， 完 全 编译 


会 比较 慢 。 推 荐 的 做 法 是 在 开发 调试 中 只 编译 当前 页 。 


尽管 在 开发 过 程 中 , 用户 可 以 自行 决定 选择 创建 Web 项 目的 方式 。 


如 下 需求 ， 建 议 使 用 创建 Web 应 用 程序 的 方式 构建 Web 项目 : 


但 如 果 在 开发 上 有 


整个 站 点 


需要 把 一 个 大 的 ASPNET 项 目 拆 分 成 多 个 小 项 目 ， 并 采用 项 目的 管理 方式 。 


v Web 页 面 或 者 Web 用 户 控件 中 需要 使 用 到 单独 的 类 ,六 


F 且 希望 使 用 命 


行 管理 ， 编 译 后 要 控制 应 用 程序 集 的 名 字 。 


如 果 在 开发 上 有 下 列 需 求 ， 建 议 使 用 创建 Web 网 站 的 方式 构建 Web 项 目 


v 使 用 Single-Page Code 模型 开发 网 站 页 面 。 


在 编写 页 面 时 ， 可 以 快速 地 看 到 编写 效果 ， 而 不 用 编译 整个 站 点 。 


v 
v ”需要 每 个 页 面 产生 一 个 应 用 程序 集 。 
v 


名 空间 来 进 


希望 把 一 个 目录 当做 一 个 Web 应 用 来 处 理 ， 而 不 需要 新 建 一 个 项 目 文件 。 
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[[]s.3.3 创建 Web 页 面 


创建 Web 项 目 之 后 ， 接 下 来 就 可 以 在 网 站 中 添加 ASPNET 页 面 了 。 
C1) 在 “解决 方案 资源 管理 器 ”窗口 中 的 网 站 名 称 上 单 击 鼠标 右键 ， 在 弹出 的 快捷 
菜单 中 选择 “添加 新 项 ”， 弹出 如 图 3-35 所 示 的 “添加 新 项 ”对 话 框 。 


AMEA -FALceri\ anita Documents Vinsa] Stucko ILOAWebsites\Website EN] 
| amne ane% pua tu LET 2 
| M 司 wes mak |) XE ees Basic 
Visual C Web EN gea 
- - 
| mE Vaal Basic 
HI Web mame Vaval Beste |a 
B ADONIET (ntityOeject ts Vocal fauc 
B ADONET SCS Views! Bove 
R ccc did | 
dy em — | 
igi HTML SE Visual Basic | 
国 JScript RIE Vows! Bac 
MEL uNQte SQUE Views! Bane 
m Siverlight 1.0 JScript St Vas! Basic 
* 
一 
aj Sherigh i RIRUR Vas! Basic 


¥ 


图 3-35 “添加 新 项 ”对 话 框 


(2) 若 要 创建 一 个 ASPNET 网 页 ， 则 选择 模板 “Web 窗 体 ”。 

(3) 在 对 话 框 底部 输入 文件 名 称 ， 例 如 FirstPage.aspx。 

(4) 选中 右 下 角 的 “将 代码 放 在 单独 的 文件 中 ” 复 选 框 ， 最 后 单 击 “ 添 加 ”按钮 ， 
即 可 创建 一 个 网 页 文件 ， 如 图 3-36 所 示 。 


[E] Websites - Microsoft Visual Web peng OO — i mmm] 


h-sl-3 I A Ly A] - & -| i oeda 
Fiori LO Transe «fg 


0Z ofpmS pens t g B 


图 3-36 创建 的 网 页 文件 


“将 代码 放 在 单独 的 文件 中 ”表示 将 一 个 ASPNET 网 页 分 为 两 个 文件 ， 一 个 文件 包 
A HTML 标记 和 Web 控件 语法 ， 男 一 个 文件 包含 源 代码 。 否 则 网 页 的 源 代码 将 与 声明 标 
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记 位 于 同一 个 文件 中 。 例 如 ， 在 “解决 方案 资源 管理 器 ”窗口 中 展开 FirstPage.aspx， 将 看 


ASP.NET 4.0 5 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


到 文件 FirstPage.aspx.vb， 这 就 是 FirstPage.aspx 的 源 代码 文件 。 


TI 


(5) 使 用 工具 箱 中 的 Web 控件 设计 页 面 ， 或 使 用 HTML 编辑 页 面 代码 。 
与 Dreamweaver 的 文档 窗口 类 似 ，Visual Web Developer 可 以 三 种 视图 显示 页 面 : 设 
拆 分 、 源 。 
\ iE: 

>) PRAY Web 窗 体 在 新 建 时 都 会 自动 继承 System. Web. UI. Page 类 。 当 然 也 
可 以 让 它 继承 自己 的 基 类 ， 如 public partial class Login: MyPage。 其 中 ，MyPage 
是 自 定 义 的 页 面 基 类 ， 基 类 也 必须 继承 System. Web. UT. Page X. 


[Ll3.3.4 编译 运行 Web 项目 


创建 项 目 和 网 页 后 ， 接 下 来 以 一 个 简单 的 页 面 测试 一 下 Web 服务 器 是 否 能 正常 运行 。 
(1) 在 FirstPage.aspx 源 视 图 的 <div> 和 </div> 中 编写 如 下 代码 : 

«hl»«font face=" 华 文 行 楼 ” color="#000000"> 欢 迎 来 到 ASP . NET TIE 1! «/£ont»«/h1» 
(2) 设置 启动 项 目 和 项 目 起 始 页 。 

当 一 个 解决 方案 中 存在 多 个 Web 应 用 程序 项 目 时 ， 就 需要 设置 其 中 的 一 个 Web 应 用 


程序 项 目 为 启动 项 目 。 选 择 需 要 设置 的 Web 应 用 程序 项 目 ， 右 击 鼠 标 ， 在 弹出 的 快捷 荣 单 
中 选择 “ 设 为 局 动 项目” 选项 即 可 。 


页 。 


eo -TIe1deUI?) 
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XE 
Server 和 浏览 器 显示 页 面 效 果 。 


当 一 个 启动 项 目 中 有 多 个 Web 页 面 的 时 候 , 就 需要 设置 其 中 的 一 个 页 面 为 项 目的 起 始 
选择 要 设置 的 Web 页 面 并 右 击 鼠标 ， 在 弹出 的 快捷 菜单 中 选择 “ 设 为 起 始 页 ”命令 。 
在 本 项 目 中 ， 将 FirstPage.aspx 设置 为 项 目的 起 始 页 。 


> Visual Studio 总 是 将 Default. aspx 默认 为 起 始 页 ， 如 果 不 设 置 ， 系 统 将 
默认 为 Default.aspx 页 面 。 

(3) 保存 文件 。 

(4) FÈ Ctrl+F5 键 开始 运行 该 Web 项目 。 效 果 如 图 3-37 所 示 。 


SD — 按 Ctrl+F5 键 只 运行 程序 ， 而 不 执行 调试 操作 。 


如 果 仅 要 预览 某 一 个 页 面 ， 在 “解决 方案 资源 管理 器 ”窗口 中 的 页 面 上 单 击 鼠标 右键 ， 
出 的 快捷 菜单 中 选择 “在 浏览 器 中 查看 ”命令 , 此 时 将 启动 ASP.NET Development Web 


{Æ hitp://localhost:49157/WebSite4/Fi 
ttp:/ 
we eB | ju. eE g) 网 页 快讯 库 了 
@http://localhost:49157... > 园 -局 m+ 页面 FP) 安 人 9v 
欢迎 来 到 ASP.NET 世 界 / 
»u @ Internet | 保护 模式 : 禁用 fà v R100% v 


图 3-37 显示 效果 


[Dis. 3.5 调试 运行 程序 

通常 编写 的 程序 在 编译 的 时 候 会 出 现 一 些 错误 或 者 异常 导致 编译 不 成 功 ， 或 者 编译 成 
功 了 ， 运 行 结 果 却 与 预期 不 符 等 。 这 时 就 需要 调试 运行 程序 来 查找 错误 的 原因 。 
在 Visual Studio 中 调试 某 个 特定 的 网 页 时 ， 只 需要 将 该 页 面 所 在 的 项 目 设置 为 解决 方 
案 的 启动 项 目 ， 并 将 该 页 面 设置 为 项 目 起 始 页 ， 然 后 设置 断 点 ， 单 击 工 具 栏 上 的 “启动 调 
试 ” 按 钮 ， 或 者 使 用 快捷 键 F5 就 可 以 进行 调试 了 。 

需要 注意 的 是 ， 调 试 页 面 的 运行 还 取决 于 项 目 所 在 的 位 置 。 如 果 项 目 保存 在 远程 Web 
服务 器 或 本 地 DS 的 虚拟 目录 中 ，Visual Studio 将 直接 启动 默认 浏览 器 并 导航 到 合适 的 
URL; 如 果 没 有 为 Web 应 用 程序 项 目 设置 IS, 而 使 用 文件 系统 应 用 程序 (Visual Studio EX 
认 的 方式 )，Visual Studio 将 在 一 个 动态 随机 选择 的 端口 上 启动 整合 的 Web 服务 器 ， 然 后 
运行 默认 浏览 器 并 向 它 传递 页 面 指向 本 地 Web 服务 器 的 URL。 在 这 两 种 方式 下 ， 编 译 页 
面 并 创建 页 面 对 象 的 工作 都 被 交 给 了 ASP.NET 工作 进程 来 管理 。 

调试 程序 的 具体 操作 步骤 如 下 ; 

d) 设置 调试 断 点 。 单 击 代码 旁 的 边界 ， 或 者 在 代码 上 单 击 鼠标 右键 ， 在 弹出 的 快 
捷 菜 单 中 选择 “ 断 点 ”/“ 插 入 断 点 ”命令 ， 代 人 码 旁 的 边界 上 会 显示 一 个 红色 的 圆 点 ， 同 时 
EE 

iX: 


SP 上 断 点 可 以 设置 在 任何 可 执行 的 代码 行 上 ， 但 不 可 以 设置 在 变量 声明 、 注 释 


(2) 启动 调试 。 单 击 工具 栏 上 的 “启动 调试 ” 按钮 上， 或 者 按 下 FS 键 启动 调试 页 面 。 
此 时 程序 运行 到 断 点 处 时 中 断 执行 ， 并 返回 到 Visual Studio 的 代码 窗口 ， 断 点 处 的 语句 不 
会 被 执行 。 

(3) 调试 Web 项 目 程 序 。 常 用 的 调试 命令 见 表 3-1。 

(4) 查看 调试 结果 。 代 码 处 于 中 断 模式 时 ， 可 以 把 光标 停留 在 变量 上 查看 它 的 当前 


内 容 ， 借 此 来 验证 变量 是 否 包 含 预期 的 值 。 还 可 以 在 “即时 ”命令 窗口 输入 相关 程序 功能 
语句 来 查看 相关 结果 。 
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0Z opns ens rg HH 


ASP.NET 4.0 S Dreamweaver CS6 — 站 2 ] 到 精通 


£0 xe3deu) 


bole Ga dO) 6G) ale 2) -0 -HG 


) Imports System. Web. UI 
laports System, Web. UL. WebCont rols 
sten. Web. UI. VebControls.VebParts 


user. UserID 
aerActived(user. aci 


43-38 ”设置 断 点 
表 3-1 调试 命令 


命令 (快捷 键 ) 描 述 


执行 当前 高 亮 显示 的 行 后 中 断 。 如 果 当 前 行 是 某 个 过 程 调用 的 结 
束 ， 则 执行 到 方法 或 函数 中 的 下 一 个 可 执行 处 中 断 


逐 语句 (F8) 


与 El1 相同 ， 不 同 的 是 它 把 过 程 看 作 一 行 语 句 运行。 如果 在 某 个 过 


逐 过 程 (Shift + F8) 程 调用 处 执行 F10 命令 ， 则 整个 过 程 将 被 执行 ， 并 中 断 于 当前 过 程 的 
下 一 条 语句 
执行 完 当 前 过 程 的 全 部 代码 后 ， 在 调用 这 个 过 程 的 方法 或 函数 的 语 


跳出 (Shift+F11) 
句 的 下 一 条 语句 处 中 断 


继续 〈F5 ) 继续 运行 程序 ， 除 非 遇 到 另 一 个 断 点 


运行 到 光标 处 (Ctrl+F10) 运行 到 指定 的 行 ( 光 标 当 前 所 处 位 置 ) 中断 


(5) 结束 调试 。 可 以 使 用 单 击 工 具 栏 上 的 “停止 调试 ”按钮 ， 或 者 使 用 Shift+F5 停 
止 程序 的 调试 。 

(6) 取消 断 点 。 在 菜单 栏 上 选择 “调试 ”/“ 删 除 所 有 断 点 ”命令 ， 或 使 用 快捷 键 
Ctrl+Shift+F9 。 


3.4 ”配置 IIS 服务 器 


尽管 Visual Studio 2010 内 置 了 一 个 轻 量 级 的 Web 服务 器 ， 但 它 只 接受 来 自 开发 者 自 


己 的 计算 机 的 请 求 ， 这 在 实际 的 大 型 应 用 程序 开发 过 程 中 并 不 适用 。 nn 另 一 种 初学 
者 常用 的 服务 器 IIS CInternet Information Server)， 该 服务 器 能 与 Windows 系列 操作 系统 无 
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2t 


LL Js. 4. 1 


本 节 简 要 介绍 在 Windows 7 操作 系统 下 安装 IS 7.5 的 步 又。 


功 


的 


ES 


结合 ， 且 操作 简单 。 


£n 


安装 配置 11S 


COD 依次 选择 “开始 ” /控制 面板 ” /程序 ” /程序 和 功能 ”/ “打开 或 关闭 Windows 


能 ”， 打 开 “Windows 功 


(2) 把 “Internet 信息 服务 ”的 所 有 组 件 全 部 选中 ， 然 后 单 击 “ 确 定 ” 按 钮 开始 安装 。 


能 ”对 话 框 ， 如 图 3-39 所 示 。 


如 果 要 在 VS 2010 中 调试 站 点 ， 必 须 有 “Windows 身份 验证 ” 


v “摘要 式 身份 验证 ”: 使 用 Windows 域 控制 器 对 请 求 访问 Web 服务 器 上 内 容 的 用 


户 进行 身份 验证 。 
Vo "AMORES UE" 


: 要 求 用 户 提供 有 效 的 用 户 名 和 密码 才能 访问 内 容 。 


安装 完成 后 在 安装 操作 系统 的 硬盘 目录 下 多 了 一 个 Inetpub 文件 来 ， 这 就 说 明 刚 才 的 
安装 成 功 了 。 接 下 来 配置 I 


Aree 
Oa 

me. ERER 
Rete 


CE ee | | 


IS， 以 运行 ASPNET4 网 站 。 


= 


E 程序 和 功能 
K some GNIAR Windows 功能 | MEDS 
BG XNOURMCEM Windows MEIER — 0s 
默认 程序 
Cs Le | 


tari AR EOP 208 bm onrus 


打开 或 美 闭 Windows 功能 
SEF SOM WERKE. ENG MINE WINANS 
E SoU RS. 
L 
V. j: Internet Explorer 8 
ji Internet Information Services PIREN Web tO 


图 3-39 “Windows 功能 ”对 话 框 


(3) 选择 “开始 ”/“ 控 制 面 板 ”/“ 系 统 和 安全 ”/“ 管 理工 具 ” 打开 如 图 3-40 所 示 


面板 。 
(4) 在 面板 右 侧 的 列 
的 管理 器 面板 。 


(5) 单 击 管理 器 面板 左 侧 的 根 节点 ， 展 开 树 状 目录 。 在 “网 站 ”上 单 击 鼠 标 右 键 ， 


表 中 双击 “Internet 信息 服务 CIS) 管理 器 ” 打开 如 图 3-41 所 


然后 在 弹出 的 快捷 菜单 上 选择 “添加 网 站 ”命令 ， 如 图 3-42 所 示 ， 弹 出 如 图 3-43 所 示 的 
“添加 网 站 ”对 话 框 。 


如 


(6) 在 弹出 的 “添加 


网 站 ”对 话 框 中 输入 网 站 名 称 ， 单 击 “ 选 择 ” 按 钮 ， 在 弹出 的 


图 3-44 所 示 的 “选择 应 月 


程序 池 ” 对 话 框 中 选择 需要 的 应 用 程序 池 , 选择 ASP.NET v4.0, 
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然后 单 击 “确定 ”按钮 关闭 对 话 杠 。 


fft internet (RB RESI) 6.0 RIS 
By re REIR ut 
Miscs = 

BE Windows Powershell Modules 
m, Windows TOO 

A cmeism 

d» nowa 

» um 
P ERRE Windows MAR 


| zsp RED) wmm 

| (to puo men meses, 

ES 

| @ vaNiLLA-PC 主页 
, 

183 VANILLA-PC (Vanilla-PO\Wa [M “ree -BIRN 

ASP.NET 


E ry H (al 
Y E a 槛 : 
NET AUR NET RT NET 全球 化 ,NET HIR. ,NET MER SMTP MF 

n a t 


£o Lo 5 o5 


onus ENE GxGA Amer 。 页 要 和 控件。 应 用 程序 设 
要 


pg sx 


ISAPI 和 CGI ISAPI GRE MIME RE WEW 
RM kai 


dis. m 


Rein Imme Li wos o— HESS 


图 3-41 US 管理 器 面板 


CD 在 “物理 路 径 ” 文 本 框 中 键入 网 站 路 径 ， 例 如 D:\WebSite。 此 时 单 击 “ 测 试 设 
置 ”按钮 ， 将 弹出 如 图 3-45 所 示 的 “测试 连接 ”对 话 框 。 单 击 “ 关 闭 ” 按 钮 关闭 对 话 框 。 
(8) 单 击 “连接 为 ”按钮 ， 弹 出 如 图 3-46 所 示 的 “连接 为 ”对 话 框 ， 选 择 “ 特 定 用 

户 ” 作 为 路 径 任 据 ， 然 后 单 击 “设置 ”按钮 打开 如 图 3-47 所 示 的 “设置 凭据 ”对 话 框 。 
在 这 里 必须 输入 主机 系统 管理 员 的 用 户 名 和 密码 ， 否 则 无 权 访 问 硬盘 分 区 ， 人 然后 单 击 
“确定 ”按钮 关闭 对 话 框 。 


eo xe3deu) 
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| €g VANILLA-PC 主页 
RHOD -DARRA | ERA. Cr 


Lj 
à © 目 


DR AI EERAS 


EE i snm 


NETS NET MERITI NET 全 十 化 .NET IOUR NET MER SMTP RF 
则 


& NW D 


SENG HERES RT MO CINQ ABO 
a 


Lj 


p 8 图 


MTTP MUSS ISAPI 和 CGI ISAPI RISE MIME GER) Rame — pium 
LI mu = 


> 9s 


Ires uo Murs ARM BRS 


ge 
Ln 


图 3-42 ”添加 网 站 


于 Be wwmeentcsc com S marketing contoso.com 


“添加 网 站 ”对 话 框 


mum m 

Li ud 

WW NET framework EF 
[CT an | 

meum 


应 用 程序 池 (D: 


m c c—' 


website 
Classic .NET AppPool 
WebSite 


ASP.NET v4.0 Classic 
DefaultAppPool 


图 3-44 “选择 应 用 程序 池 ” 对 话 框 


Ri 


“测试 连接 ”对 话 框 
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£0 xe3deu) 


连接 为 —— ea) (anne a N 
BERE: MAZU 
7 特定 用 户 (U): bum 
1 | | 
|| © 应 用 程序 用 户 (通过 身份 验证 )(A) | WOEBO. 
| | = 
图 3-46 “连接 为 ”对 话 杠 图 3-47 “设置 凭据 ”对 话 框 
此 时 再 单 击 “ 测 试 连接 ”按钮 ， 授 权 即 通过 了 ， 如 图 3-48 所 示 。 
a A zu DONUM 
I em 
LL I BGESTESDAWebSae), 
meam. 
PRIMERA, 
BXIEBSE UNC ier SU 
FH 
图 3-48 “测试 连接 ”对 话 杠 


(9) 在 “添加 网 站 ”对 话 框 中 指定 主机 名 为 “localhost”。 然 后 单 击 “ 确 


闭 对 话 框 。 


E” ZAR 


(100 在 创建 的 网 站 的 单 击 右键 ， 选 择 “ 编 辑 权 限 ”命令 ， 然 后 在 弹出 的 对 话 框 中 单 


击 “ 安 全 ”页 面 ， 显 示 如 


图 3-49 所 示 的 对 话 框 。 


(1. website et x=) 
常规 共享 [22 。 | 以 前 的 版 本 | 自 定 尺 
HREH: D: WebSite 
组 或 用 户 名 (6) : 
Authenticated Users 
Sa SYSTEM 
GA Administrators (Vanilla-PCAAdninistrators) 
Hi Users (Vanilla-PCWUsers) 
要 更 改 权限 ， 请 单 击 “编辑 ”。 gig OD... 
Authenticated Users 的 权限 
gue Hur Be 
完全 控制 
修改 
读 取 和 执行 4 
列 出 文件 来 内 容 Lj 
E 
BA z 
PA ERRER: 请 单 击 “高 aR 
了 蟹 访问 控制 和 权限 
| C wee )( m )| mmo 
A ———— 


图 3-49 


“WebSite 属性 ”对 话 框 
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(11) 单 击 “ 高 级 ”按钮 ,弹出 网 站 的 高 级 安全 设置 对 话 框 ， 如 图 


改 权 限 ” 按 钮 ， 在 弹出 的 对 话 框 中 选择 “Authenticated Users”， 然 后 单 击 “ 编 辑 ” 按 钮 ， 


弹出 如 图 3-51 所 示 的 对 话 框 。 在 “权限 ”列表 中 选择 允许 完全 控制 ， 单 击 “ 确 定 ” 按 钮 关 


闭 对 话 框 。 


接 下 来 检查 网 页 的 身份 验证 。 


C12) 单 击 “Internet 信 ， 


(13) 在 要 调试 的 站 点 上 启用 安装 IS 时 增加 的 身份 验 说 
选项 上 单 击 鼠 标 右键 ， 在 弹出 的 菜单 中 选择 “启用 ” 即 可 。 


(T Website tone ppm E 
| 权限 。 [审核 _ | 所 有 者 | 有 效 权 限 | 
着 要 查看 某 个 权限 项 目的 详细 信息 ， 请 双击 该 项 目 。 着 要 修改 权限 ， 请 单 击 “更改 权限 ”。 
weer D: WebSite 
|| mme: 
|| [mm — e 权限 继承 于 应 用 于 
STE T DA 此 文件 夫 、 
fut SUSTEN 完全 控制 pA ESTEE V ERASE 
允许 Authenticated Users 修改 BA 此 文件 来 、 子 文件 来 
SE ees (Yanil1s-PC\..， 读 取 和 执行 DA OSCARS PXH 
| 
| CERO 
包括 可 从 该 对 象 的 父 项 继承 的 权限 CL) 
||| mug 
| 应 用 以 
图 3-50 “WebSite 的 高 级 安全 设置 ”对 话 框 
人 Website 的 权限 项 目 =>} 
对 象 | 
REARS o TSTEME ADT Eek MERHER 
E TB uthenticsted Users Eh C) 
|| 应 用 于 o:a SARA | 
HIRE): m 拒绝 
完全 控制 m) 回 e 
遍历 文件 来 /执行 文件 回 
列 出 文件 来 7 读 取 数 据 E jg 
|| | Emm 回 | 
读 取 扩展 属性 回 
创建 文件 / 写 入 数据 回 
| 创建 文件 来 /附加 数据 回 
| 写 久 属性 Pp i 
Toe PRLS Eres PAIR in EX T] | 
/al; Z3 (T) 
/MES | 
| EHE | 
| (E j( mă 
| d 
图 3-51. “WebSite 的 权限 项 目 ” 对 话 框 


息 服 务 (IS) 管 理 器 ”面板 左 侧 的 网 站 节点 , 在 中 间 列 表 的 “IIS” 
部 分 双击 “身份 验证 ”图 标 ， 如 图 3-52 所 示 ， 打 开 对 应 的 身 


份 验证 面板 。 
E， 如 图 3-53 所 示 。 在 对 应 的 
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3-50 所 示 。 单 击 “更 
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D ”是 在 要 调试 的 站 点 上 启用 ， 而 不 是 要 调试 的 应 用 程序 目录 1! 


[Intemet E) 
@ » VANILLA-PC ， 网 站 » WebSite > 
| SHA) REV 。 帮助 (H) 
(e | WabSite E 
ie | s 5 打开 功能 
4-83 VANILLA-PC (Vanilla-PC\Va n E 
[3 - n ONIS. 分 组 依据 : Bos 
-O 应 用 程序 池 的 canza 加 eau... 
4-[8] 网 站 ASP CGI — HTTP 响应 标 HTTP 重 定 向 IP 地 址 和 域 司 
头 限制 编辑 网 站 
> @ WebSite e 2 : se... 
ISAPI Gait MIME 32 — SSL 设置 WebDAV 8| 处 理 程序 映 查看 应 用 程序 
ZENER 
管理 网 站 ^ 
2 重新 启动 
Li || > 启动 
eee 
浏览 网 站 
® itis localhost on 80 (ht) 
高 级 设置 
RE 
7 失败 请 求 跟踪 
限制 . 
添加 FTP 发 布 
e sz 
联机 帮助 
‘le m + 
sus 8: 
图 3-52 双击 “身份 验证 ”图 标 
Internet ds = 
S3 > VANILLA-PC > | 
文件 了。 视图 (V) ”帮助 (H) 
Gy suu = 
1g VANILLA-PC (Vanilla-PCWa | 。 分 组 依据 ;不 进行 分 组 E @ ss 
ESSE: x x 联机 帮助 
oi) 网 站 E 状态 响应 类 型 
Active Directory PRBS... 已 禁用 HTTP 401 质询 
ASP.NET 模拟 已 禁用 
Forms 身份 验证 已 禁用 HTTP 302 登录 / 重 定向 
C3 基本 身份 验证 质询 
匿名 身份 验 汪 
5 接 要 式 身份 验证 1 质询 
«1 x j| Eran |i 内 容 视图 
CI EB: “localhost” applicationHost.config $i. 


图 3-53 ”启用 身份 验证 
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[Ils.4.2 测试 Web 服务 器 


US 安装 配置 完成 后 ， 接 下 来 测试 一 下 Web 服务 器 是 否 能 正常 运行 。 
(1) 创建 一 个 网 站 及 网 页 用 于 测试 。 

(2) 在 Visual Web Developer 中 新 建 一 个 网 站 ， 指 定 网 站 的 路 径 为 D:\WebSite， 即 在 
“添加 网 站 ”对 话 框 中 定义 的 网 站 物理 路 径 


(3) 新 建 一 个 Web 窗 体 文件 , 在 “ 源 ” 视 


即 以 标题 1 样式 显示 一 行文 本 ， 最 后 将 文件 保存 为 Default.aspx。 
网 站 编辑 完成 后 ， 接 下 来 测试 IS. 


(4) 在 新 创建 的 网 站 上 单 击 鼠 标 右键 ， 选择“ 管理 网 站 ”/ 


图 中 输入 <hl>Welcome to ASP.NET 4</h1>, 


“浏览 ” 命令 ， 如 图 3-54 
所 示 ， 或 者 单 击 面板 右 侧 “浏览 网 站 ”下 的 “浏览 localhost on *:80(http) ". 


图 3- 
如 果 得 到 如 图 3-55 所 示 的 页 面 则 说 明 服 务 器 运行 正常 。 


54 浏览 网 站 


s =] " (2) ES 
[Seneca ON  - ——— EET) 
Go [@ > VANILLA-PC 网 站 » WebSite » CERLE 

文件 ID REV) SBH) 

连接 E 

WebSite 主页 | 
a © ^ Bi ses 
4-93 VANILLA-PC (Vanilla-PC\Vanilla) m DOF) - 同 全 部 显示 (A) | 分 组 依据 ， l 编辑 权限 ..…. 
OQ 应 用 程序 池 zi 编辑 网 站 
ASP.NET 
“T 网 站 $ = "n 
die 2 — — —— > = 1 5 
owg 浏览 Z [&] i e =g [E NN 
编辑 权限 .… .NET 编 泽 NET 错误 页 NeT BX NET 全 球 化 D T 查看 应 用 程序 
P ”添加 应 用 程序 EESHBE 
gi BinESBE. 2 (e 5 w È | 管理 网 站 ^ 
v à d || 2 arem 
RSE... .NET 信任 级 SMTP 电子 SSRS HENES SESH IM || eomm 
L gk » 8 
管理 网 站 B 停止 
了 BRR) 
x me 
添加 FTP 发 布 . BREE... 
配置 
NS P e y 失败 请 求 跟踪 .。 
ES id ASP CGI HTTP = HTTP 重 定向 IP 地 址 和 域 pe ON 
限制 添加 FTP 发 布 .。 
E P-2 e #5 
ó pm 8 2) 联机 帮助 
ISAPI 算 选 器 MIME 类 型 ”SSL 设置 “WebDAV 8| 处 理 程序 映 
作 规则 BH 


bitgi/localhost] - = 
Pon v| a*s] x ||P aing P~ 
Atar |. puo gpluccsm- 

Æ htp://locathost/ A-B- w+ WE) 安全 5 INO 


Welcome to ASP.NET 4 


4j * R100% “ 
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[1j8.4.3 创建 虚拟 目录 


Web 站 点 默认 的 主 目录 是 前 面 提 到 过 的 Xinetpub\wwwroot。 可 以 将 本 地 计算 机 上 的 
他 目录 设置 为 主 目录 ， 也 可 以 将 主 目录 设置 为 局 域 网 上 其 他 计算 机 的 目录 或 者 重 定向 到 
其 他 网 址 。 


除非 有 必要 ， 并 不 建议 修改 主 目 录 。 如 果 不 希望 把 ASP.NET 文件 存放 到 \inetpub\www 
root 目录 下 ， 可 以 设置 虚拟 目录 。 下 面 简要 介绍 创建 虚拟 目录 的 两 种 常用 方法 。 
1. 使 用 HS 管理 器 创建 IIS 虚拟 目录 


C1) 单 击 HS 管理 器 窗口 中 的 网 站 节点 ， 在 窗口 右 侧 的 任务 列表 中 选择 “查看 虚拟 目 
孙 ” 命 令 ， 出 现 虚 拟 目录 管理 面板 ， 在 右 侧 的 任务 列表 中 选择 “添加 虚拟 目录 ”命令 ， 弹 


出 如 图 3-56 所 示 的 “添加 虚拟 目录 ”对 话 框 。 
添 hn 庶 所 目录 | 


网 站 名 称 : WebSite 
BE: if 


BIE): 
| 

ETT 

WERE): 

传递 身份 验证 


EEZ 


图 3-56 “添加 虚拟 目录 ”对 话 框 
(2) 在 “别名 ”文本 框 中 输入 所 要 建立 的 虚拟 目录 的 名 称 。 别 名 不 区 分 大 小 写 。 
(3) Mtl 按钮， 选择 要 建立 虚拟 目录 的 实际 文件 来。 在 这 里 要 注意 的 是 ， 在 IIS 
中 添加 虚拟 目录 时 ， 一 定 要 添加 包含 Web.Config 文件 的 那 层 目录 。 
(4) 在 “传递 身份 验证 ”区 域 单 击 “ 测 试 设置 ”按钮 ， 将 弹出 “测试 连接 ”对 话 框 ， 


O 显示 指定 的 用 户 赁 据 未 授权 ， 不 可 访问 指定 的 物理 路 径 。 
-— (5) 单 击 “连接 为 ”按钮 ， 弹 出 如 图 3-57 所 示 的 “连接 为 ”对 话 框 ， 单 击 “ 特 定 用 
€ 户 ” 单 选 按钮 ， 然 后 单 击 “ 设 置 ”按钮 打开 “设置 凭据 ”对 话 框 ， 输 入 登录 本 机 的 系统 管 
"C 理 员 用 户 名 和 密码 后 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 。 
et 连接 为 9 
(D RUE 
I3 | | sme | 
应 用 程序 用 户 (通过 身份 验证 )(A) 


图 3-57 “连接 为 ”对 话 框 
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此 时 在 “编辑 虚拟 目 
凭据 已 授权 可 访问 指定 的 物理 路 径 。 
(6) 单 击 “ 确 定 ” 按 钮 ， 完 成 虚拟 目录 的 创建 。 此 时 在 “Internet 信息 服务 CIS) 


录 ” 对 话 框 中 再 次 单 击 “ 测 试 设置 ”按钮 ， 即 可 看 到 指定 的 用 户 


mg 


理 器 ”窗口 的 左 侧 可 以 看 到 创建 的 虚拟 目录 ， 如 图 3-58 所 示 。 


选中 一 个 虚拟 目录 ， 


Æ “Internet 信息 服务 CIS) 管理 器 ”窗口 右 侧 的 任务 栏 可 以 对 


选 定 的 虚拟 目录 进行 编辑 ， 例 如 设置 虚拟 目录 默认 值 、 编 辑 权限 、 浏 览 虚拟 目录 等 。 


在 调试 网 页 源 代 码 时 ， 如 果 出 现 “ 在 应 用 程序 级 别 之 外 使 用 注册 为 


allowDefinition-'MachineToApplication' 的 节 是 错误 的 ”信息 , 原因 可 能 是 在 IS 中 没有 将 


虚拟 目录 配置 为 应 用 程序 。 


为 应 用 程序 ”选项 ， 弹出 


在 虚拟 目录 上 单 击 鼠 标 右键 ， 在 弹出 的 快捷 菜单 中 选择 “转换 
“添加 应 用 程序 ”对 话 框 ， 然 后 单 击 “确定 ” SMS 


me 
" 
E © 拟 目录 uq 
2 i VANILU PC (Varila POWA | eu /msrCoEENIESGENUERIDRRBRUIN. SRERESOWISUUS UREN ORR 
2 机 用 程序 地 Sms URL. ow 
x 网 站 | 
Wi zw anaa vmm | 
I aspoet BEL ma FAUsers\Vanilla\Documents\ Visual. l 
gus | 
2 App 
5 Bin 
73 Bookimag: 
a 
ETT 
mo | 
Z mod 
zw | 
i 
4 PERE E RRD | 
| se EAE 


图 3-58 创建 的 虚拟 目录 


2. 直接 对 文件 夹 操作 


C1) 在 资源 管理 器 中 ， 浏 览 到 要 设置 为 虚拟 目录 的 文件 夹 并 选中 ， 然 后 单 击 鼠 标 右 
键 ， 从 弹出 的 快捷 菜单 中 选择 “属性 ”选项 ， 打 开 对 应 的 属性 对 话 框 ， 单 击 “ 共 享 ” 选 项 


卡 ， 如 图 3-59 所 示 (注意 : 


IIS 服务 器 必须 在 启动 状态 )。 


(2) 在 “高 级 共享 ”区 


区 域 单 击 “ 高 级 共享 ”按钮 ， 出 现 如 图 3-60 所 示 的 “高 级 共享 ” 


对 话 框 。 勾 选 “ 共 享 此 文件 夹 ” 复 选 框 ， 然 后 设置 该 文件 夹 的 共享 名 。 


(3) 在 “高 级 共享 Er » 
图 3-61 所 示 。 


对 话 框 中 单 击 “ 权 限 ”按钮 ， 打 开 对 应 的 权限 设置 对 话 框 ， 如 


(4) 在 “组 或 用 户 名 ”区 域 选 中 Everyone， 然 后 在 对 话 框 下 方 设 置 Everyone 的 


权限 为 允许 完全 控制 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 。 


主 目录 和 虚拟 目录 都 是 TIS 服务 器 的 服务 目录 ， 这 些 目录 下 的 文件 都 能 够 被 访客 访问 。 
当 用 户 在 浏览 器 地 址 栏 中 输入 一 个 URL 时 ， 例 如 http://localhost/aspx/test.aspx， 本 地 主机 
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eo -TIe1deUI?) 


上 的 TIS 服务 器 首 
对 应 的 实际 路 径 下 
文件 ， 如 果 没 有 找到 该 文件 ， 则 服务 器 返回 出 错 信息 。 


先 查 找 是 否 存 在 名 为 asx 的 虚拟 目录 ， 如 果 有 ， 就 显示 虚拟 目录 aspx 


的 test.aspx 文件 ， 如 果 没 有 ， 则 碍 找 主 目录 下 aspx 文件 夹 中 的 test.aspx 


创建 虚拟 目录 之 后 ， 将 应 用 程序 放 在 虚拟 目录 下 有 以 下 两 种 方法 。 


J BBS 尾 性 =a) 
LONE [ee | 以 前 的 版 本 | 自 定义 | 
网 络 文件 和 文件 夫 共 享 
h- BBS 
pe EE — 
MAREO: | pum =S) 
THE I 
团 共 享 此 文件 夫 ©) 
证 
高 级 共享 共享 名 0 
EGER. MESMAS ROUGE BES 
ANNA) | Ns OR) 
WERREO.. ] Mg mm 20 
密码 保护 | s80: 
BRP RRRIGHHVDRPIKPIIEB, disini | 
若 要 更 改 此 设置 ， 请 使 用 四 络 和 共享 中 心 。 ! 
| DRE) 
(we) CaA ERGA \ [| 确定 ][ 取消 ][ 应 用 | 
图 3-59 “共享 ”选项 卡 图 3-60 “高 级 共享 ”窗口 
(T BBs 的 权限 5 
共享 权限 
组 或 用 户 名 ©): 
Everyone | 
ESTTONEEEE 71:3] 
Everyone MURE) 允许 pe 
完全 控制 E Al 
Bo E 
读 取 [i Oo 
| 
D 
| Tihai 


BH | 


图 3-61 权限 设置 对 话 框 


(1) 直接 将 网 站 的 根 目 录放 在 虚拟 目录 下 面 。 例 如 应 用 程序 的 根 目录 是 “test”， 直 
接 将 它 放 在 虚拟 目录 下 ， 路 径 为 “[ 人 硬盘 名 ]: \Inetpub\wwwroot\test”. 此 时 对 应 的 URL 是 
“http://localhost/test ". 


(2) 将 应 用 程序 目录 放 到 一 个 物理 目录 下 (例如 ，D:tesp， 同 时 用 一 个 虚拟 目录 指向 


该 物理 目录 。 此 时 | 


户 不 需要 知道 对 应 的 物理 目录 ， 即 可 通过 虚拟 目录 的 URL 来 访问 它 。 


这 样 做 的 好 处 是 用 户 无 法 修改 文件 ， 一 旦 应 用 程序 的 物理 目录 改变 ， 也 只 需 更 改 虚 拟 目录 
与 物理 目录 之 间 的 映射 ， 仍 然 可 以 用 原来 的 虚拟 目录 来 访问 它们 。 
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"B 4 =f ASP.NET 4.0 简介 


本 章 将 介绍 ASPNET 的 一 些 基础 知识 和 关键 技术 ， 详 细 介 绍 ASP.NET : 


| :常用 的 Web 控件 、 母 版 页 和 主题 、ASPNET 的 内 建 对 象 。 


ASP. NET 4.0 概述 
VB. NET 语言 基础 
Web 窗 体 

常用 的 ASP. NET 控件 
母 版 页 和 主题 

ASP. NET 的 内 建 对 象 
AJAX 服务 器 控件 


© © ® ® 


© © 


$ 


——— €— 


yO 193deuy) 


ASP.NET 4.0 与 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


4.1 ASP.NET 4.0 概述 


什么 是 ASP.NET? ASP.NET 是 一 个 统一 的 Web J] 
一 部 分 ， 它 在 任何 安装 该 框架 的 地 方 都 可 以 使 用 。 
略 有 差别 ， 但 是 在 创建 Web 应 

那么 什么 是 .NET We? 它 包括 哪些 技术 和 产品 ? 实际 上 说 出 .NET BTE 
j 底 什么 是 .NET 也 是 众说 纷 经 。2000 年 微软 的 白皮书 是 这 样 定义 .NET 
HJ: .NET 就 是 Microsoft 的 XML Web 服务 平台 。 不 论 操 作 系统 或 编程 语言 有 何 差别 ， 
程序 在 Internet 上 传输 和 


那么 简单 ， 对 于 至 


XML Web 服务 能 使 应 | 


] 之 后 使 ) 


Microsoft® .NET 平台 包含 广泛 的 产品 系列 ， 


标准 构建 ， 提 供 从 开发 、 
务 将 成 为 您 今天 正在 使 用 


管 理 bl fii) 
HJ Microsoft 的 应 ) 


< 亭 数据 。 


F 发 模型 ， 
熟悉 ASP 的 人 会 发 现 ASPNET 编程 
的 概念 基本 一 致 。 


作为 .NET Framework 的 


定义 并 不 是 


它们 都 是 基 


到 体验 XML Web 服务 的 每 一 方 


程序 、 工 


打造 出 全 新 的 产品 以 满足 ) 


j 户 所 有 业务 需求 。 


总 的 来 说 ，.NET 是 入 


多 技术 的 合集 ， 


中 


p 


, .NET Framework 44 


用 之 间 可 以 使 用 


Web 服务 进行 


架 的 目的 是 便于 开发 人 员 更 容易 地 建立 Web 应 


沟通 。 开 发 人 员 可 以 将 远程 应 | 


于 XML 和 Internet 行业 
Ifi. XML Web JR 


k 和 服务 器 的 一 部 分 ， 并 且 将 要 


是 Microsoft 公司 的 一 个 战略 。 在 .NET 战略 
重要 的 地 位 ， 是 一 个 多 语言 组 件 开发 和 执行 环境 。.NET HE 
TA Web 服务 ， 


使 得 Internet 上 的 各 种 应 


dax 
^A o 


QM. 1. 1 


服务 结合 起 来 ， 组 成 一 个 新 的 应 ) 
它 包括 Web Hk. Web 应 用 


ASP. NET 的 特点 


ASPNET 是 一 个 统一 的 Web 开发 模型 ， 
必需 的 服务 。 同 时 ASPNET 是 Microsoft .NET Framework 的 一 部 分 ， 是 一 种 可 以 在 高 


度 分 布 的 Internet 环境 中 简化 应 | 
代码 时 ， 可 以 访问 .NET Framework 中 的 类 。 可 以 使 用 


Language Runtime, CLR) 


Microsoft Visual Basic. Cft, JScript. NET 和 J#. f) 
类 型 安全 、 继 承 等 方面 的 优点 的 ASP.NET 应 用 。 


运行 库 、 


兼容 的 任何 语言 


]， 改 善 了 应 


] 程 序 开发 的 计算 环 


它 提 供 了 为 建立 和 部 署 企业 级 Web 应 


提供 的 服务 和 单机 应 } 
程序 的 可 靠 性 、 可 扩展 性 以 及 安全 性 。 
(ASPNET)、 数 据 存 储 技术 (ADO.NET)、Windows Forms 


Ei. CE ASPNET NJ 


的 


]Br 


程序 的 


与 公 


语言 运行 库 〈Common 


来 编写 


程序 的 代码 ， 这 些 语言 包括 


W) 


j 这 些 语 言 ， 可 以 开发 利 | 


A 


E = 
Nba E 


因 


此 它 有 如 下 特点 : 


(1) 与 Microsoft .NET Framework 集成 在 一 起 ， 运 行 在 CLR 运行 库 环境 之 内 。 


ASP.NET 建立 在 .NET Framework 的 编程 类 之 上 ， 它 提供 了 一 个 Web W) 
包含 使 生成 ASP Web 应 | 
开发 人 员 以 服务 的 形式 交付 软件 。 使 用 


m, JB 


程序 变 得 


以 编写 自己 的 业务 逻辑 3 


使 用 


(2) 编译 执行 ， 文 持 
(3) 跨 浏 览 器 和 跨 设 
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简单 的 控件 集 和 


程序 模 
结构 。 另 外 ASPNET 能 让 


多 种 编程 语言 ， 同 


时 它 是 


fe TEA 


F 发 中 完全 使 用 


ASP.NET É 


XML Web Services 功能 ，ASPNET 开发 人 员 可 
ASPNET 结构 ， 最 后 通过 SOAP 交付 该 服务 。 
面向 对 象 的 。 


带 的 Web 服务 器 控件 ， 这 


26 Web 服务 器 控件 将 会 根据 客户 端的 浏览 器 自动 生成 相应 的 HTML, 不 用 编写 任何 其 他 


的 额外 代码 就 能 够 实现 跨 浏 览 器 支持 。 

(4) 易于 配置 与 部 署 。 这 是 任何 一 个 开发 平台 所 不 能 够 比拟 的 , 尤其 是 在 Windows 
7 和 Windows Server 2008 操作 系统 中 自 带 了 .NET, 通过 复制 程序 的 方式 就 能 够 让 程序 自 
由 运行 。 


(14.1.2 ASP. NET 的 版 本 变迁 


迄今 为 止 ，ASPNET 经 历 了 多 个 版 本 ， 已 经 是 非常 成 熟 的 一 项 Web 开发 技术 。 可 
以 把 它 的 发 展 历程 分 为 以 下 几 个 阶段 。 


1. ASP.NET 1.0 与 ASPNET 1.1 


2002 年 ， 随 着 微软 NET 口号 的 提出 与 Windows XP. Office XP 的 发 布 ， 微 软 发 布 
了 代号 为 “Rainier ”的 Visual Studio .NET( 内 部 版 本 号 为 7.0)。 它 最 大 的 改进 就 是 使 用 ,NET 
框架 (v1.0)。 与 此 同时 ，ASPNET 这 种 新 型 Web 开发 技术 也 闪 亮 登场 (v1.0)。 它 的 前 
身 是 ASP， 但 与 ASP 相 比 ，ASPNET 发 生 了 质 的 变化 : 
d) 改变 了 传统 ASP 的 开发 模式 ， 使 用 了 设计 与 代码 分 离 的 代码 隐藏 模型 。 
(2) 消除 了 对 脚本 引擎 的 依赖 性 ， 支 持 多 语言 开发 ， 如 CH. Visual Basic 等 。 
(3) 提供 了 丰富 的 Web 服务 器 控件 和 代码 调试 等 工具 ， 用 户 通过 “ 拖 上 忠 ” 的 方式 
就 能 够 设计 出 自己 的 网 页 。 
(4) 功能 强大 的 身份 确认 模型 。 
2003 年 ， 微 软 对 Visual Studio 2002 进行 了 部 分 修订 ， 发 布 了 代号 为 “Everett” 的 
Visual Studio 2003〈 内 部 版 本 号 为 7.1) 。 它 将 .NET 框架 由 1.0 版 升级 到 1.1 版 ， 同 时 
HEH ASP.NET 或 .NET Compact Framework 来 开发 移动 设备 程序 提供 了 内 置 文 持 。 


2. ASP.NET 2.0 
2005 年 ， 微 软 发 布 了 Visual Studio 2005， 同 时 也 将 ASPNET 升级 到 2.0 版 本 。 相 
XJF ASP.NET 1.1, ASP.NET 2.0 做 了 很 多 方面 的 改进 ， 在 原来 的 基础 上 增加 了 许多 新 的 
控件 、 母 版 页 、 主 题 和 皮肤 、 个 性 化 用 户 配置 、 成 员 资格 和 角色 管理 、 配 置 和 管理 工具 
(ASPNET MMC 管理 单元 和 Web 网 站 管理 工具 )。 


3. ASP.NET 3.5 


2008 年 2 月 微软 发 布 了 Visual Studio 2008 简体 中 文 专业 版 ,ASPNET 也 升级 到 3.5。 
相对 其 他 的 版 本 来 说 ，ASPNET 3.5 取得 了 更 大 的 技术 突破 ， 为 开发 者 提供 了 一 系列 新 
技术 : 内 置 对 ASPNET AJAX 的 支持 、 引 入 了 重量 级 对 象 一 LINQ 技术 、 对 Silverlight 
的 支持 等 。 


4. ASP.NET 4.0 


相对 于 ASPNET 3.5 SP1 来 说 , ASPNET 4.0 算是 一 个 功能 性 增强 版 本 , 它 引 入 了 多 


他 或 0pLIN dsv pE 


v0 ain 


machine.config 文件 中 ， 应 
fifi. ASP.NET 4 应 


A 
IR] Y 


zz 


rH 


些 存 储 选项 包括 本 + 


ASP.NET 4.0 与 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


洁 和 清 
的 框架 版 本 。 
(2) 可 扩 


XE X cH Dp pe D 


AML DEAE 


项 可 改进 ASP.NET 核心 服务 的 功能 。 
(1) Web.config 文件 重 构 。 随 
Web.config 文件 也 得 到 了 很 大 的 发 


程序。 输出 


za 


绥 存 提供 
(3) 预 加载 Web 应 用 程序 。 


也 或 远程 做 盘 、 
程序 扩展 性 ， 可 以 为 网 站 设计 更 主动 且 更 智能 的 输出 组 


ASPNET 4 为 输 
ZU 


须 加 载 大 量 数据 或 执行 开销 逢 
必须 采取 自 定义 方法 
Application Load 方法 中 1 


运行 初 


大 的 初始 化 处 理 
“唤醒 ”ASPNET 应 
台 化 代码 。 
为 处 理 这 种 情况 ， 当 ASP.NET 4 在 


可 
方 


YE 


移 


x 


到 


以 使 


] 一 种 新 


法 来 启动 应 


的 应 


程序 


， 可 以 在 处 理 


第 一 


(4) KAJ 


动 ， 这 可 能 会 导 


是 使 


] Redirect 方法 将 


”) 响应 ( 


ili 
ASP.NET 4 增加 了 一 个 RedirectPermanent 帮助 方法 ， 使 


定向 
致 链接 过 期 。 


INE 
程序 池 ， 初 始 化 ASP.NET 应 
项 HTTP 请 求 之 前 执行 
该 技术 只 能 够 在 Windows Server 2008 R2 Ef 
页 面 。 在 应 用 程序 的 生存 
在 ASPNET 中 ， 
SRE RAT URL. SX ill, Redirect 方 法 会 发 出 HTTP 302 


着 .NET 技术 的 发 
展 。 在 .NET Framework 4 中 ， 
程序 可 继承 这 些 设置 ， 从 而 使 Web.config 比 以 前 的 版 本 更 
程序 中 的 Web.config 文件 可 以 为 空 


程序 可 使 | 


HELE Web y] 


HE, GL Web 应 


程序 配置 信 , 
主要 配置 元 素 已 移 到 


Su 


出 缓存 增加 了 扩 


管理 


时 重 定 向 )， 这 会 产生 额外 的 HTTP f£ 


HTTP301 (“永久 移动 ”) 响应 。 


浏览 


态 发 送 全 远程 存储 器 之 前 ， 必 须 对 其 进行 序列 化 。 如 果 会 话 状态 中 保存 了 大 量 数据 ， 序 
列 化 数据 的 大 小 可 


当 compressionEnabled 配置 选项 设置 为 true IN, ASPNET 使 用 


WAIKAE 


We 


EE 定向 的 搜索 引擎 及 其 他 


(5) 


于 临时 习 
会 话 状态 压缩 。 
状态 的 选项 。 第 一 个 选项 是 一 个 调 
个 选项 是 一 个 在 Microsoft SQL Ser 
由 于 这 两 个 选项 均 在 Web 应 


EE 定向 的 不 必要 的 往 
默认 情况 下 ，ASPNET 提供 
进程 外 会 话 状 态 朋 
ver 数据 库 中 存储 数据 的 会 
[ 作 进程 之 外 存储 状态 信息 


可 以 使 用 本 


ba 置 文件 中 sessionState 7523 13 


返 。 


程序 的 了 


任何 存储 机 第 


程序 在 为 第 一 项 请 


。 预 加 载 功 


开销 很 大 的 应 


IPAH 


能 会 变 得 很 大 。 
ASP.NET 4 针对 这 两 种 类 型 的 进程 外 会 话 状 态 提 化 
EE 用 此 选项 ， 在 Web 服务 器 上 有 多 余 CPU 周期 的 应 | 


的 IIS 7.5 n3 


EXE. 


将 存储 与 内 容 关联 的 者 


， 或 仅 指 定 应 


JR 


Windows Server 2008 R2 上 的 IIS 7.5 中 运 
器 〈 自动 启动 功能 


该 方法 可 以 方便 


序 面 


展 性 ， 可 以 配置 一 个 或 多 个 
I 保存 HTML 内 容 。 这 
云 存 储 和 分 存 式 缓存 引擎 。 借 助 ASP.NET 4 中 的 输出 
存 策 略 。 
求 提 供 服 务 之 前 ， 必 
oft ASP.NET 早期 版 本 中 , 对 于 此 类 情况 ， 
程序 ， 然 后 在 Globalasax 文件 的 


运行 时 ， 
能 提供 了 一 种 
程序 ， 然后 接受 HTTP 请 求 。 通 过 这 种 方 
程序 初始 化 。 值 得 注意 的 是 ， 
运行 。 
BIA, Web 应 


可 控 


j 程 序 中 的 内 容 经 常 发 生 
开发 人 员 对 旧 URL 请 求 的 传统 处 理 方 


人 找 


i 地 


两 个 


于 存储 整 


有 务 器 的 会 


Ff URL, 从 而 


个 Web 页 


话 状 态 提供 程序 。 


WK ASHE 


t 程 序 


Ao 因此 在 将 会 话 状 


A 


EE 


消除 


会 话 


第 = 


Wr 


程序 引入 了 一 个 新 的 


压缩 选 


程序 可 以 大 大 缩减 序列 化 会 


项 。 
话 状 


新 的 compressionEnabled 特性 设置 此 选项 。 
.NET Framework 


GZipStream 类 对 序列 化 会 话 状态 进行 压缩 和 人 解压 缩 。 
(6) 扩展 允许 的 URL 范围 。 以 前 版 本 的 ASPNET 根据 
URL 路 径 长 度 约束 为 不 超过 260 个 字符 。ASPNET4 引入 了 一 


程序 的 需要 ， 使 用 httpRuntime 配置 元 素 的 两 个 新 特性 选择 扩展 或 缩小 URL 的 范围 。 此 


NTFS 文件 路 径 限 制 ， 将 
些 新 选项 ， 可 以 根据 应 用 


外 ，ASPNET 4 还 允许 配置 URL 字符 检查 所 用 的 字符 ， 而 在 以 前 版 本 中 ，URL 字符 检 


查 限 于 固定 字符 集 。 


CD 定义 浏览 器 功能 的 新 方式 。 FE ASP.NET 3.5 中 若 需 要 定义 浏览 器 功能 ， 需要 编 


写 一 个 XML 文件 ， 位 于 计算 机 级 文件 夹 或 应 用 程序 级 文件 夹 中 。ASPNET 4 包含 一 项 


称 为 “浏览 器 功能 提供 程序 ”的 新 功能 ， 用 于 构建 一 个 提供 程序 ， 该 提供 程序 又 可 用 于 


编写 自 定 义 代码 以 确定 浏览 器 功能 。 对 于 需要 的 人 员 ， 使 用 提供 程序 的 方法 比 处 理 复杂 


的 XML 语法 更 为 简便 


C80 在 数据 控件 中 保持 行 选择 。 在 ASPNET 的 早期 版 本 
行 索引 进行 的 。ASPNET4 支持 持久 化 选择 ， 这 项 新 功能 最 初 


SP1 中 的 动态 数据 项 目 中 提供 。 局 用 此 功能 后 ， 将 基于 行 数据 键 选 择 项 。 这 意味 着 ， 如 
果 选 择 页 面 1 上 的 第 三 个 行 ， 然 后 移 至 页 面 2， 则 不 会 选 定 页 面 2 上 的 任何 内 容 。 当 


中 ， 行 选择 是 基于 页 面 的 
仅 在 .NET Framework 3.5 


您 移 回 页 面 1 时 ， 仍 将 选 定 第 三 个 行 。 与 ASPNET 早期 版 本 


(9) FormView 控件 增强 功能 。FormView 控件 已 改进 ， 
的 样式 设置 。 在 ASP.NET 的 早期 版 本 中 ，FormView 控件 使 


中 的 行为 相 比 ， 这 种 行为 


自然 得 多 。 有 目前 针对 所 有 项 目 中 的 GridView 和 ListView 控件 支持 持久 化 选择 。 
HJ CSS 简化 了 控制 内 容 
项 模板 呈现 内 容 。 这 使 得 


在 标记 中 进行 样式 设置 十 分 困难 ， 因 为 控件 会 呈现 意外 的 表 行 和 表单 元 格 标记 。 


FormView 控件 支持 ASPNET 4 中 的 属性 Render-OuterTable。 当 此 属性 设置 为 false 时 ， 


\ 会 呈现 表 标 记 ， 这 样 更 容易 对 控件 内 容 应 用 CSS 样式 。 


(10) ListView 控件 增强 功能 。ASPNET 3.5 中 引入 的 ListView 控件 具备 GridView 


控件 的 所 有 功能 ， 同 时 可 以 全 面 控制 输出 。 在 ASPNET4 中 ， 


简化 了 此 控件 的 使 用 。 该 


控件 的 早期 版 本 指定 布局 模板 , 其 中 包含 一 个 具有 已 知 ID 的 服务 器 控件 。 而 在 ASP.NET 


4 中 ，ListView 控件 不 需要 布局 模板 。 
(11) 使 用 QueryExtender 控件 筛选 数据 。 在 数据 驱动 的 


网 页 中 筛选 数据 的 传统 执 


行 方法 是 在 数据 源 控件 中 生成 Where 子 句 。 这 种 方法 可 能 十 分 复杂 ， 而 且 在 某 些 情况 
下 , 通过 Where 语法 无 法 充分 利用 基础 数据 库 的 全 部 功能 。 为 简化 第 选 操 作 , ASPNET 
4 中 增加 了 一 个 新 的 QueryExtender 控件 。 可 以 将 此 控件 添加 到 EntityDataSource 或 
LinqDataSource 控件 以 筛选 这 些 控件 返回 的 数据 。 QueryExtender 控件 依赖 于 LINQ, 


但 用 户 无 需 了 解 如 何 编写 LINQ 查询 即 可 使 用 该 查询 扩展 程序 。 


(12) 清 除 不 需要 的 外 部 表 。 在 ASP.NET 3.5 中 , FormView, Login, PasswordRecovery 
和 ChangePassword 控件 呈现 的 HTML 包装 在 一 个 table 元 素 中 ,该 元 素 的 用 途 是 将 内 联 


样式 应 用 于 整个 控件 。 如 果 使 用 模板 自 定义 这 些 控 件 的 外 观 ， 


则 可 以 在 用 户 的 模板 所 提 


供 的 标记 中 指定 CSS 样式 。 在 这 种 情况 下 ， 不 需要 额外 的 外 部 表 。 在 ASPNET4 中 , 38 


过 将 新 的 RenderOuterTable 属性 设置 为 false， 可 以 避免 呈现 表 。 
(13) 向 导 控 件 的 布局 模板 。 在 ASP.NET 3.5 中 ，Wizard 


和 CreateUserWizard 控件 


他 或 0pLIN dsv pE 
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可 生成 用 于 可 视 格 式 设置 的 HIMLtable 元 素 。 在 ASPNET4 中 ,可 以 使 用 LayoutTemplate 
元 素 指定 布局 。 如 果 这 样 做 ， 将 不 生成 HIML table 元 素 。 在 模板 中 ， 可 创建 占 位 符 控件 
来 指示 应 在 该 控件 中 动态 插入 项 的 位 置 . 这 与 ListView 控件 的 模板 模型 的 工作 方式 类 似 。 
(14) 用 于 CheckBoxList 和 RadioButtonList 控件 的 新 增 HTML 格式 设置 选项 。 

] HTML #70384 CheckBoxList 和 RadioButtonList 控件 的 输出 设置 格 


式 。 为 提供 不 使 | 


[L]4. 1.3 ASP.NET 4 的 逻辑 结构 


创建 ASPNET 4 应 用 程序 之 前 ， 先 要 了 解 ASP.NET 4 的 逻辑 结构 。 
ASP.NET 4 系统 的 逻辑 结构 可 以 是 两 层 结构 也 可 以 是 三 层 结 构 。 所 谓 两 层 结构 是 指 
表示 层 直 接连 接 到 数据 层 。 所 谓 三 层 结构 是 在 表示 层 和 数据 层 的 中 间 增 加 一 个 业务 逻辑 


。 如 图 4-1 所 示 


表 进 行 可 视 格 式 设置 的 蔡 代 方法 ，ASPNET 4 为 RepeatLayout 枚 举 增 
加 了 两 个 选项 : UnorderedList 和 OrderedList。UnorderedList 指定 使 用 ul M li 元 素 而 不 
是 表 对 HTML 输出 进行 格式 设置 ，OrderedList 指定 使 用 ol 和 1 元 素 而 不 是 表 对 HTML 
输出 进行 格式 设置 。 


o 


图 4-1 ASP.NET 4 的 逻辑 结构 


如 果 系 统 比较 简单 ， 采 用 两 层 结构 比较 合适 。 当 系统 比较 复杂 或 者 系统 有 特殊 要 求 


时 适合 于 采用 三 层 


上 看 都 属于 中 间 层 


结构 。 三 层 结 构 中 中 间 层 从 物理 上 看 可 能 还 包括 多 个 层次 ， 但 从 逻辑 


和 浏览 等 。 正 是 在 
的 应 用 系统 。 


上 图 的 右边 是 系统 提供 的 多 种 服务 ， 包 括 安全 、 状 态 、 个 性 、 网 站 配置 、 网 站 管理 


系统 提供 的 这 些 服务 的 基础 上 ， 才 可 能 快速 地 开发 出 功能 强大 而 健壮 


(04.1.4 ASP. NET 应 用 程序 的 组 成 


一 个 ASPNET 4 应 用 程序 是 程序 运行 的 基本 单位 ， 也 是 程序 部 署 的 基本 单位 。 应 用 

程序 由 多 种 文件 组 成 ， 通 常 包 括 以 下 6 部 分 : 
(OD 一 个 在 TIS 信息 服务 器 中 的 虚拟 目录 。 这 个 虚拟 目录 被 配置 为 应 用 程序 的 根 目 
录 。 虚 拟 目 录 是 以 服务 器 作为 根 的 目录 ， 默 认 安 装 时 ，IIS 服务 器 被 安装 在 [人 硬盘 名 ]: 
\Inetpub\wwwroot 目录 下 ， 该 目录 对 应 的 URL 为 “http://localhost” 或 者 “http:// 服 务 占 
域名 ”。 在 Internet 中 ， 向 外 发 布 信息 或 接受 信息 的 应 用 程序 必须 放 在 虚拟 目录 或 其 子 目 
录 下 面 。 

(2) 一 个 或 多 个 后 级 为 .aspx 的 网 页 文件 ， 也 可 以 含有 扩展 名 为 .html 的 网 页 文件 。 
在 ASP.NET 中 的 基本 网 页 是 以 .aspx 作为 后 级 的 文件 。 除 此 以 外 ， 应 用 程序 中 还 可 以 包 
括 以 .html 或 .asp 为 后 级 的 网 页 ， 但 系统 执行 这 些 网 页 的 内 部 过 程 是 有 区 别 的 。 
当 服 务 器 打开 后 级 为 .html 的 网 页 时 , 不 经 过 任何 处 理 就 直接 送 往 浏览 器 ， 由 浏览 器 
下 载 并 解释 执行 。 而 打开 后 级 为 .aspx 的 网 页 时 ， 则 需 先 创建 服务 器 控件 ， 运 行 服务 器 端 
的 代码 ， 然 后 再 将 结果 转换 成 HTML 的 代码 形式 送 往 浏览 器 。 当 然 也 不 是 每 次 都 要 在 服 
务 器 端 重新 解读 和 运行 ， 对 于 那些 曾经 请 求 过 而 又 没有 改变 的 ASPX 网 页 ， 服 务 器 会 直 
接 从 缓冲 区 中 取出 结果 而 不 需要 再 次 运行 。 

(3) 一 个 或 多 个 Web.config 配置 文件 。Web.config 是 一 个 基于 XML 的 配置 文件 ， 
对 应 用 程序 进行 配置 ， 比 如 规定 客户 的 认证 方法 ， 基 于 角色 的 安全 技术 的 策略 ， 数 据 绑 
定 的 方法 ， 远 程 处 理 对 象 等 。 所 有 的 ASP.NET 配置 信息 都 驻 留 在 该 文件 的 configuration 
元 素 中 。 此 元 素 中 的 配置 信息 分 为 两 个 主 区 域 : 配置 节 处 理 程序 声明 区 域 和 配置 节 设置 
区 域 。 

每 个 Web.config 文件 都 以 标准 的 XML 声明 开始 ， 但 是 没有 这 个 声明 也 不 会 出 错 。 

文件 中 包括 <configuration> 的 开始 标记 和 结束 标记 。 它 的 内 部 是 <system.web> 的 开始 和 结 
束 标记 ， 表 示 其 中 的 内 容 是 ASP.NET 特有 的 配置 信息 。 这 些 配 置信 息 的 标记 就 是 元 素 
(element)。 元 素 可 以 由 一 个 或 多 个 子 元 素 组 成 ， 这 些 子 元 素 带 有 开始 和 结束 标记 ， 元 素 
的 内 容 用 “名 字 / 值 ”对 来 描述 。 
可 以 在 网 站 的 根 目录 和 子 目 录 下 分 别 建立 自己 的 Web.config 文件 ， 也 可 以 一 个 
Web.config 文件 都 不 建 ， 这 是 因为 服务 器 有 一 个 名 为 Machine.config 的 配置 文件 ， 默 认 
安装 在 “[ 硬 盘 名 ]:\windowsNMicrosoftNETAErameworA〈 版 本 号 ) \CONFIG\ ”目录 下 。 
这 个 配置 文件 已 经 确定 了 所 有 ASPNET 应 用 程序 的 基本 配置 , 通常 情况 下 不 要 去 修改 这 
个 文件 ， 以 免 影 响 其 他 应 用 程序 的 正常 运行 。 
相对 于 .NET Framework 4 之 前 的 版 本 ， 在 新 的 machine.config 中 注册 了 所 有 的 
ASP.NET 标识 部 分 (section) 、 处 理 器 Chanlder) 和 模块 。 除 了 machine.config 之 外 ， 
ASP.NET 还 使 用 了 根 Web.config 文件 ， 与 machine.config 在 同一 个 目录 下 。 它 提供 额外 
的 设置 , 这些 设置 注册 ASP.NET 的 核心 HTTP 处 理 程序 和 模块 ,为 浏览 器 支持 建立 规则 ， 


p 


定义 安全 策略 等 。 计 算 机 上 的 所 有 Web 应 用 程序 都 继承 这 两 个 文件 的 设置 。 在 
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Machine.config 与 Web.config 文件 之 间 ， 以 及 各 个 目录 的 Web.config 文件 之 间 存 在 着 一 


种 层次 关系 。 根 目录 的 Web.config 继承 Machine.config 的 配置 ， 子 目录 继承 父 目 录 
Web.config 的 配置 。 只 有 在 某 个 子 目 录 的 Web.config 中 有 新 的 配置 时 ， 才 会 自动 覆盖 父 
目录 的 同名 配置 。 

(4) 一 个 以 Global.asax 命名 的 全 局 文件 。Globalasax 文件 又 称 为 全 局 应 ) gue 
包含 响应 ASP.NET 或 HTTP 模块 所 引发 的 应 用 程序 级 别 和 会 话 级 别 事 件 的 代码 ， 是 
个 可 选 的 文件 。 一 个 应 用 程序 最 多 只 能 建立 一 个 Globalasax 文件 ， 而 且 必须 放 在 应 用 程 
序 的 根 目 录 下 。 这 是 一 个 全 局 性 的 文件 ， 用 来 处 理应 用 程序 级 别 的 事件 ， 例 如 
Application Start, Application End 和 Session Start, Session End 等 事件 的 处 理 代码 。 当 
打开 应 用 程序 时 系统 首先 执行 的 就 是 这 些 事件 处 理 代码 。 运 行 时 分 析 Global.asax 并 将 其 
编译 到 一 个 动态 生成 的 .NET Framework 类 ， 该 类 从 HttpApplication 基 类 派生 。 
在 Visual Studio 中 加 入 Global.asax 文件 后 , 它 里 面包 含 了 常用 的 应 用 程序 事件 的 空 
事件 处 理 程序 ， 用 户 上 只 需要 在 相应 的 方法 中 加 入 自己 的 处 理 程序 即 可 。 

(5) App. Code 和 App Data 共享 目录 。 放 在 APP. Code 目录 中 的 文件 会 自动 成 为 
旋 用 程序 中 各 个 网 页 的 共享 文件 。 当 创建 三 层 架 构 时 ， 中 间 层 的 代码 将 放 在 这 个 目录 下 
以 便 共 享 。 系 统 使 用 的 数据 库 和 一 些 专用 的 数据 表 将 自动 放 在 App Data 目录 中 ， 以 实 
现 客 户 管理 和 个 性 化 服务 。 

App Code 目录 包含 用 户 希 望 作为 应 用 程序 一 部 分 〈 可 进行 编译 的 ) 实用 工具 类 和 
业务 对 象 的 源 代 码 。 在 动态 编译 的 应 用 程序 中 , 当 对 应 用 程序 发 出 首次 请 求 时 , ASP.NET 
编译 App Code 文件 夹 中 的 代码 ， 然 后 在 检测 到 任何 更 改 时 重新 编译 该 文件 夹 中 ease 
在 应 用 程序 中 将 自动 引用 App_Code 文件 夹 中 的 代码 。 此 外 ，App_Code 文件 夹 可 以 包 
需要 在 运行 时 编译 的 文件 的 子 目 录 。 
App Data 目录 包含 应 用 程序 数据 文件 ， 包 括 MDF 文件 、XML 文件 和 其 他 数据 存 

储 文件 。ASPNET 4 使 用 App Data 文件 夹 来 存储 应 用 程序 的 本 地 数据 库 ， 该 数据 库 可 
用 于 维护 成 员 资格 和 角色 信息 。 

(6) Bin 目录 。 该 目录 包含 用 户 要 在 应 用 程序 中 引用 的 控件 、 组 件 或 其 他 代码 的 已 
编译 程序 集 (.dl 文件 )。 在 应 用 程序 中 将 自动 引用 Bin 文件 夹 中 的 代码 所 表示 的 任何 类 。 


E 


[Ll4.1.5 常用 的 Web. config 配置 节 


在 实际 开发 中 经 常 需 要 用 到 如 下 3 个 配置 节 : <customErrors>、<connectionStrings>、 
<appSettings> 。 


]. <customErrors> 
<customErrors> Ji T- «system.web» Hif], 它 允 许 用 户 在 发 生 各 种 HTTP 错误 时 配置 
应 用 程序 的 行为 ， 如 下 所 示 : 
<1=-- 如 果 在 执行 请 求 的 过 程 中 出 现 未 处 理 的 错误 ， 则 通过 <customErrors> 节 可 以 配置 相应 的 处 理 
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步骤 。 有 具体 来 说 ， 开 发 人 员 通 过 该 节 可 以 配置 要 显示 的 html 错误 页 以 代替 错误 堆栈 跟踪 。--> 


<customErrors mode-"RemoteOnly" defaultRedirect="CommonErrorPage.aspx"> 


«error statusCode-"403" redirect-"NoAccess.html" /> 


«error statusCode-"404" redirect-"FileNotFound.html" /> 


</customErrors> 


为 应 用 程序 创建 <customErrors> 节 重 定向 403, 404 等 错误 到 特定 的 错误 信息 提示 


面 ， 可 以 使 程序 提示 更 力 
定向 到 指定 页 面 


(1) On: 自 定 义 错 
一 般 的 错误 。 


; 如 果 发 生 403 和 404 以 外 的 错误 ， 用 户 将 被 重 定向 
CommonErrorPage.aspx 页 面 。 因 为 mode 属性 被 设置 为 RemoteOnly， 所 以 本 地 的 管理 员 
可 以 看 到 真实 的 错误 信息 而 不 被 重 定 向 ,但 远程 用 户 具 能 够 看 到 被 定向 的 信息 提示 页 面 。 
其 中 mode 可 以 设置 为 三 种 模式 : 


页 
[0 友好。 在 上 面 的 代码 中 ， 如 果 错 误 码 是 403 或 404， 页 面 将 重 
到 | 


误 被 启用 ， 如 果 没 有 提供 defaultRedirect 属性 ， 用 户 将 看 到 一 个 


(2) Off: 自 定义 错误 被 禁用 ,用户 将 看 到 错误 的 详细 信息 。 


(3) RemoteOnly: 


本 地 的 管理 员 能 够 看 见 真实 的 错误 信息 而 不 被 重 定向 ， 而 远程 


J P ^N 能 够 看 到 被 定 [n] 的 信 息 提示 页 [HI o 


在 使 用 时 读者 需要 注意 两 点 : 一 是 在 配置 文件 中 自 定义 的 错误 设置 只 在 ASP.NET 


处 理 请 求 时 才 有 效 ， 二 是 如 果 自 定义 页 面 发 生 错 误 ，ASPNET 将 不 能 够 处 理 。 它 不 会 再 


次 把 用 户 转 送 到 同一 页 面 , 相反 , 它 将 会 显示 一 个 带 有 一 般 信息 的 普通 客户 端 错误 页 面 。 


2. <connectionStrings> 


<connectionStrings> 属 于 <configuration> 里 的 节 


W, d 
符 串 ， 可 以 在 里 面 添加 一 个 或 者 多 个 数据 库 连接 字符 串 ， 如 下 所 示 : 


<connectionStrings> 


<add name-"ConnectS 


database-Eipsoft.T 


主要 用 于 设置 项 目的 数据 库 连 接 字 


tring" connectionString-"server-.; 


est;uid-sa;pwd-mawei;" 


providerName-"System.Data.SqlClient"/» 


<add name-"ConnectS 


tringl" connectionString-"server-.; 


database-Eipsoft.Testl;uid-sa;pwd-mawei;" 


providerName-"System.Data.SqlClient"/» 


</connectionStrings> 


3. <appSettings> 


<appSettings> fj T- «c 
面 添加 项 目的 版 权 信 息 、 


«appSettings» 


onfiguration> 里 的 节 ， 主 要 用 于 信息 的 自 定义 的 设置 ,可 以 在 
项 目 名 称 等 ， 如 下 所 示 : 


ps 


<!1-- 系 统 用 户 配置 信息 --> 


Hk pu 
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«add key="CustomerName" value=" 默 认 用 户 "/> 
«add key-"Title" value=" 系 统 名 称 "/ 
«add key="LoginPhoto" value="Images/LoginPhoto. jpg"/> 


<add key="FrameTopPhoto" value="Images/FrameTopPhoto. jpg"/> 


<add key="CopyRight" value=" 版 权 信息 说 明 "/> 
«add key="Power" value=" 


Eipsoft.PowerManagement.AppCode.PowerInterface,binNEipsoft.PowerManage 


ment.dll"/» 
«add key-"DefaultPage" value-"Login.aspx"/» 


«add key-"Isviewmenu" value-"false"/» 


«add key-"Template" value="E:/Eipsoft 工作 目录 /upFiles"/> 


<add key="FCKeditor:BasePath" value="~/fckeditor/"/> 


«add key="FCKeditor:UserFilesPath" value-"-/FCKeditorfiles/"/» 


«/appSettings» 


iE: 

v 虽然 可 以 通过 多 种 手段 去 修改 配置 文件 里 的 配置 节 , 但 这 样 做 是 非常 不 理 
想 的 : 修改 配置 所 花 的 代价 很 大 ， 文件 的 访问 速度 会 很 慢 ， 而 且 它 所 需要 的 同步 化 增 
加 了 许多 额外 的 开销 ， 新 程序 域 创 建 ( 在 每 次 配置 设置 修改 时 发 生 ) 会 花 很 大 代价 。 
所 以 除非 特殊 情况 ， 建 议 不 要 轻易 去 修改 配置 文件 。 


4.2 VB.NET 语言 基础 


SS 


ASP.NET 的 开发 语言 有 很 多 种 ， 任 何 被 .NET CLR 支持 的 语言 都 可 以 用 来 编写 
ASP.NET 应 用 程序 。 目 前 使 用 比较 普遍 的 是 VB.NET、C#、 形 等 等 。 在 .NET 中 ， 各 种 开 
发 语言 通过 苇 〈 中 间 语 言 ) 相互 之 间 可 以 调用 ， 因 此 使 用 什么 语言 并 不 影响 对 系统 进行 
开发 ， 本 书 所 使 用 的 代码 均 采 用 VB.NET 编写 。 

本 节 简 要 介绍 VB.NET 语言 的 基础 知识 , 包括 数据 类 型 、 操 作 符 、 控 制 语句 等 内 容 
实例 比较 丰富 ， 和 希望 读者 能 够 上 机 调试 每 一 个 程序 。 


[4. 2.1 ASP.NET 5 VB. NET 


前 面 提 到 过 ，ASPNET 不 仅仅 是 ASP 的 一 个 简单 升级 ， 更 提供 了 一 个 全 新 而 强大 
的 服务 器 控件 结构 。ASPNET 基于 组 件 和 模块 化 ,每 一 个 页 面 、 对 象 和 HTML 元 素 都 是 
一 个 运行 的 组 件 对 象 。 在 开发 语言 上 ， ASPNET 抛弃 了 VBScript 和 Jscript, 而 是 使 用 .NET 


框架 所 支持 的 .NET 语言 ， 如 VB.NET. C#.NET 等 语言 作为 其 开发 语言 ， 这 些 语 言 生成 


的 网 页 在 后 台 转 换 成 类 ， 并 编译 成 一 个 DLL。 


虽然 ASPNET 


完全 依赖 该 框架 。 也 许 读 者 曾经 昕 说 过 ， 可 以 使 用 


在 宣传 上 似乎 是 独立 的 技术 ， 实 际 上 它 是 .NET 框架 的 一 部 分 ， 而 且 


此 。 同样 也 可 以 使 ) 


“记事 本 ” 写 ASPNET 应 用 
“记事 本 ”编写 VB.NET 应 用 。 但 是 在 Visual Studio 中 书写 ASP.NET 
义 用 的 最 大 优点 是 能 够 使 用 一 些 有 用 的 工具 ， 包 括 : 语法 高 亮 显示 、IntelliSense、 宏 和 
插件 ,ToolBox、HTML、XML、 代 码 编 辑 器 、Server Explorer 等 等 。 


的 确 如 


» 


需要 记 住 的 是 : ASP.NET 


Ju AG VB.NET Web 应 用 项 目 完全 相同 ， 当 创建 VB.NET Web 应 用 时 ， 实 际 上 就 是 创建 


ASP.NET 项 目 ， 只 不 过 是 通过 特定 的 语言 和 IDE 来 实现 这 种 技术 。 


04.2.2 数据 类 型 


数据 类 型 指 程序 中 数据 的 类 型 以 及 计算 机 如 何 存储 这 些 类 型 的 数据 。 每 个 变量 、 文 
本 、 第 数 、 属 性 、 过 程 参数 和 过 程 返 回 值 都 具有 数据 类 型 。 除 非 使 用 无 类 型 编程 ， 否 则 


必须 声明 所 有 编程 元 素 的 数据 类 型 。 
NET 中 类 型 的 两 个 基本 类 别 是 “ 值 类 型 ”和 “引用 类 型 
型 的 变量 包含 数据 ， 而 引用 类 型 的 变量 包含 的 是 对 象 的 引用 ， 


1. 值 类 型 


LH 


两 者 的 区 别 是 : EK 


用 分 别 进行 介绍 。 


VB.NET 语言 中 的 值 类 型 可 以 分 为 基础 类 型 (Primitive Types), MS% (Enum 
(Struct Types)。 下 面 分 别 介 绍 这 儿 种 类 型 。 


Types) 和 结构 类 型 
(1) 基础 类 型 


总 是 有 初始 值 的 。 


(Primitive Types ) 


简单 地 讲 ， 如 果 一 个 类 型 的 值 可 以 使 用 常数 描述 ， 该 类 型 


= 


是 基础 类 型 。 基 础 类 型 


VB.NET 第 用 的 基础 类 型 有 : 整数 ， 浮 点 、 布 尔 、 日 期 和 字符 串 。 各 种 类 型 的 存储 


分 配 如 表 4-1 所 示 。 


1) 整数 类 型 是 只 表示 整数 的 数据 类 型 ， 该 类 型 共有 4 种 不 同 的 数据 类 型 。 有 符号 的 


整 型 数据 类 型 是 Short、Integer 和 Long。 无 符号 整 型 是 Byte， 如 果 某 个 变量 包含 二 进 制 
数据 或 未 知 种 类 的 数据 , 则 将 其 声明 为 此 类 型 ,由 于 Byte 是 0-255 范围 内 的 无 符号 类 型 ， 


它 无 法 表示 负数 。 如 果 将 一 元 负 (-) 运算 符 用 于 取 值 为 Byte 类 型 的 表达 式 ， 则 Visual 
Basic 首先 将 表达 式 转换 为 Integer 类 型 。 


表 4-1 值 类 型 


= 存储 分 配 
Short 2 
RE Integer 4 
Long 8 
浮 点 类 型 Single 
Double 8 


学 或 0pLIN dsv pE 
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Decimal 16 
布尔 Boolean 2 
期 Date 8 
FRP String 取决 于 实现 平台 
如 果 试 图 将 整 型 变量 设置 为 其 类 型 范围 以 外 的 数字 将 会 出 错 。 如 果 试 图 将 它 设 置 为 
小 数 ， 则 数字 将 四 舍 五 入 ， 如 下 例 所 示 : 


Dim K As Integer 


2147483648 
Mine, (5) 5 9) 


， 出 错 
"KA6 


存储 在 Byte 变量 和 数组 中 的 二 进 


读 取 文 件 或 写 入 文件 ， 


对 于 整 型 ， 


文本 类 型 字符 
文本 类 型 字符 表示 Byte。 


或 调 ) 


j DLL、 方 法 和 属性 


' 的 合法 取 值 范围 为 -2147483648~+2147483647 


基数 据 在 格式 转换 中 被 保留 .不 应 对 二 进 制 数据 使 
J String 变量 ， 因 为 在 ANSI 和 Unicode 格式 之 间 转 换 时 其 内 容 会 损坏 。 当 Visual Basic 
时 ， 这 种 转换 会 自动 发 生 。 


2) 浮 点 类 型 主要 | 
Single 和 Double. ‘EM? AF 


来 表示 小 数 ， 在 VB.NET MX) 


]S 表示 Short, } 


]I Xm Integer, | 


三 种 数据 类 型 


村 


7v TI» 
TFW, 


1L X; Long. KA 


来 表示 : 


Decimal. 


Decimal 数据 类 型 最 多 支持 29 位 有 效 位 数 ,， 可 表示 最 大 为 7.9228 X 1028 的 值 , 主要 


DecVar - 


DecVar - 


Single 数据 类 型 


方便 货币 和 人 金 


融 方面 的 计算 。 


为 Decimal 变量 或 常量 赋 


个 


将 字符 类 型 追加 到 数字 类 型 ， 如 下 例 所 示 : 
Dim DecVar As Decimal 
9223372036854775808 ! 
9223372036854775808D ' 


Long ŠW, iH. 


类 型 ， 不 溢出 . 


Decimal 


对 于 小 数 类 型 的 数据 ， 要 在 数据 的 后 面 加 上 “m”， 例 如 : 
Dim X As Decimal 


80603.454327m 


如 果 省 略 了 “m”， 在 变量 
Single 和 Double 数字 的 范 


浮 点 可 以 


"i 


mi 


的 最 大 正 值 为 3.4028235E+38， 


大 正 值 为 1.79769313486231570E+308， 


假 、 是 / 否 或 


TARH 


Fal LK Decimal 数字 大 ， 


赋值 之 前 将 被 编译 器 当 作 Double 类 型 处 理 。 


精度 为 15 位 ~16 位 数 。 


RES 


类 型 ， 必 须 


它 需要 记录 的 位 数 很 大 ， 但 又 不 容许 四 舍 五 入 误差 。 
大 的 值 时 ， 如 果 该 什 太 大 ， 不 能 用 Long 数据 


日 可 能 会 导致 四 舍 五 入 错误 。 
J mmmEeee 表示 , 其 中 mmm 是 尾数 (有效 数 字 ), eee 是 指数 C 
精度 为 7 位 数 ， 而 Double 数据 类 型 的 最 


10 FA) 


对 于 非 整 型 , 文本 类 型 字符 用 D 表示 Decimal, 用 下 表示 Single, 用 R 表示 Double. 
3) 布尔 和 日 期 类 型 。VB.NET 提供 了 几 种 不 是 面向 数字 或 字符 的 数据 类 型 。 它 们 用 

特殊 的 数据 ， 如 是 / 否 和 日 期 /时 间 值 。 
Boolean 数据 类 型 是 被 解释 为 True 或 False 的 无 符号 值 。 如 果菜 个 变量 只 能 包含 真 / 
/ 关 信 息 ， 则 将 它 声明 为 Boolean 类 型 ，Boolean 的 默认 值 是 False。 在 下 例 


HH, RunningVB 是 一 个 存储 简单 的 是 / 否 的 Boolean 变量 。 


Dim RunningVB As Boolean 


' Check to see if program is running on VB engine. 


If ScriptEngine = "VB" Then 
RunningVB = True 
End If 


Boolean 没有 文本 类 型 字符 。 


Date 数据 类 型 是 64 位 C8 FE) 有 符号 整数 。 每 个 增 量 表示 从 公历 第 1 年 的 1 
号 (12:00 AM) 开始 经 过 的 100 tik 


秒 时 间 。 


1 


间 ， 如 下 例 所 示 : 


SomeDate 


如 果 在 日 


1 月 1 号; 如果 在 日 
天 的 开始 时 间 〈 即 入 


F 夜 )。 


将 数字 数据 类 型 转换 为 Date 类 型 时 ，VB.NET 将 它 的 值 视 为 有 符号 整数 。 如 果 试 图 


转换 负数 ， 则 会 出 错 。 
Date 没有 文本 类 型 字符 。 但 是 ， 编 译 器 将 


Date. 
4) 字符 和 字符 


理 可 打印 和 可 显示 的 字符 。 


= #1/28/2003 6:00 PM# 
期 /时 间 文 本 中 未 包含 日 期 ， 则 VB.NET 将 该 值 的 日 


HI 


String 包含 任意 个 数 的 字符 。 


Char 数据 类 型 是 
这 样 的 方法 用 于 Char 变量 来 确 


H, 


期 /时 间 文 本 中 未 包含 时 间 ， 则 VB.NET 将 该 值 的 时 间 部 分 设置 为 当 


Date 数据 类 型 的 变量 或 常数 包含 日 期 和 时 


期 部 分 设置 为 0001 年 


包含 在 数字 符号 (##) 字符 中 的 文本 视 为 


VB.NET 提供 字符 (Char) 和 
当 它 们 处 至 


Py Ar rj 


字符 串 CString) 类 型 
的 都 是 Unicode 字符 时 ，Char 包含 单个 字符 ， 而 


] 来 处 


单个 双 字 节 C16 f) Unicode 字符 。 可 将 如 IsDigit 和 IsPunctuation 
定 其 Unicode 分 类 。VB.NET 不 在 Char 类 型 和 数字 类 型 


之 间 直 接 转 换 。 可 以 通过 函数 实现 类 型 转换 ， 如 AscW 和 ChrW. 


如 果 打 开 类 型 检查 


以 将 其 标识 为 Char 数据 类 型 ， 


Option Strict On 


Dim CharVar As Char 


CharVar = "@" 


CharVar = "@"C 


Char 类 型 是 无 符号 


' 类 型 检查 开关 打 


如 下 例 所 示 : 


时 ， 不 能 将 


F< (Option Strict)， 必 须 将 文本 类 型 


' 成 功 地 将 单个 字符 赋值 给 CharVar. 


的 ， 其 文本 类 型 字符 是 C。 


申 转换 为 字符 . 


P> EN 


字 答 追加 到 单字 符 字 答 串 ， 


String 数据 类 型 是 零 个 或 更 多 个 双 字 节 〈16 位 ) Unicode 字符 的 序列 。 如 果 某 个 变 


lim] 


Private S As 


String 


量 总 是 包含 字符 串 而 从 不 包含 数值 ， 则 将 它 声 


明 为 String 


类 型 ， 


如 下 例 所 示 : 


然后 可 以 将 字符 串 赋 给 这 个 变量 ， 并 使 用 字符 串 函数 操作 此 变量 ， 如 下 例 所 示 : 


S = "Database" 


PERQRLHN'dSV Wr 
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S = Microsoft.VisualBasic.Left(S, 4) ' S IER "Data". 
String 数据 类 型 包含 Unicode 字符 ， 而 每 个 Unicode 字符 都 可 在 0 和 65 535 之 间 取 


fH. String 变量 或 参数 总 是 “ 变 长 字符 串 ” 它 随 着 给 它 指 派 的 新 数据 增 大 或 缩小 。 
字符 串 有 时 由 前 导 空格 或 尾随 空格 填充 。Trim、LTrim 和 RTrim 函数 可 移 除 这 些 空 

格 。 使 用 字符 串 时 可 能 会 发 现 这 些 函 数 很 有 用 。 
String 没有 文本 类 型 字符 。 但 是 ， 编 译 器 会 将 包含 在 双 引 号 (《"") 中 的 文本 视 为 字 


EN 

at 
Tn 
UU 


(2) 枚 举 类 型 (Enum Type) 是 从 System.Enum 继承 的 类 型 ， 表 示 某 个 基 元 整 型 的 
值 集 。 一 般 而 言 ， 对 于 枚 举 类 型 E， 默 认 值 为 表达 式 Ctype (0, E) 产生 的 值 。 

枚 举 的 基础 类 型 必须 为 一 个 可 表示 枚 举 中 定义 的 所 有 枚 举 值 的 整 型 。 如 果 指 定 基础 
类 型 ， 它 必须 为 Byte、Short、Integer 或 Long。 如 果 未 显 式 指定 基础 类 型 ， 则 默认 值 为 
Integer. 

下 面 的 示例 声明 了 一 个 基础 类 型 为 Long 的 枚 举 : 


Enum Color As Long 


Red 

Green 

Blue 
End Enum 

枚 举 成 员 列 表 中 的 标识 符 被 声明 为 常数 ， 可 出 现在 需要 常数 的 任何 位 置 。 用 “=” 

进行 的 枚 举 成 员 定义 将 常数 表达 式 所 指示 的 值 赋 给 关联 的 枚 举 成 员 。 常 数 表达 式 必 须 计 
算 为 整 型 ， 而 且 必 须 位 于 可 由 基础 类 型 表示 的 值 范 围 内 。 常 数 表达 式 必 须 计 算 为 可 隐 式 
转换 为 基础 类 型 的 类 型 , 而 且 必 须 位 于 可 由 基础 类 型 表示 的 值 范 围 内 。 在 下 面 的 示例 中 ， 
常数 值 1.5、2.3 和 3.3 不 能 被 隐 式 转换 为 基础 整 型 Long， 因 此 出 错 。 


Open tee On 


Enum Color As Long 
Red = 1.5 
Green = 2.3 
ES = 3.3 
End Enum 
多 个 枚 举 成 员 可 共享 同一 关联 值 ， 如 下 所 示 : 
Enum Color 


Red 


Green 
Blue 
Max = Blue 


End Enum 


此 例 显示 了 一 个 有 两 个 枚 举 成 员 Blue 和 Max 的 枚 举 ， 两 个 枚 举 成 员 有 相同 的 关联 
值 。 


如 果 第 一 个 枚 举 数 没有 初始 值 设 定 项 ， 则 相应 常数 的 值 为 零 。 无 初始 值 设 定 项 的 枚 


举 成 员 定义 使 前 一 枚 举 成 员 的 值 增加 1， 并 将 增加 的 值 赋 给 当前 的 枚 举 数 。 此 增加 的 值 


必须 位 于 可 由 基础 类 型 表示 的 范围 内 ， 否 则 将 发 生 编 译 时 错误 。 


Imports System 
Enum Color 
Red 
Green - 10 
Blue 
End Enum 


Class Test 
Shared Sub Main() 


Console.WriteLine (StringFromColor (Color.Red)) 
Console.WriteLine (StringFromColor (Color.Green)) 
Console.WriteLine (StringFromColor(Color.Blue) ) 


End Sub 


Shared Function StringFromColor(c As Color) As String 


Select Case c 
Case Color.Red 


Return [String] .Format ("Red = " & CInt(c)) 
Case Color.Green 

Return [String] .Format ("Green = " & CInt(c)) 
Case Color.Blue 

Return [String] .Format ("Blue = " & CInt(c)) 
Case Else 

Return "Invalid color" 


End Select 
End Function 
End Class 


上 例 


， 枚 举 成 员 Red 没有 设置 初始 值 ， 


但 由 于 它 是 第 


赋值 为 0。 枚 举 成 员 Green 被 显 式 地 赋值 为 10， 枚 举 成 员 Blue 前 面 的 成 员 值 增加 1 


个 枚 举 成 员 ， 所 以 被 自动 


, 并 


将 增加 的 值 自动 赋 给 枚 举 成 员 Blue。 所 以 上 例 打印 出 的 枚 举 成 员 名 称 及 其 关联 值 为 : 


Red = 0 
Blue = 11 


Green - 10 


(3) 结构 类 型 (Structure Type) 通常 是 


个 信息 成 为 它 的 一 个 成 员 。 结 构 类 型 在 创建 诸如 点 结构 、 文 件 类 型 结构 、IP 地 址 结 


组 相关 的 信息 合成 的 单一 实体 ， 其 


的 每 
构 等 


小 型 对 象 时 特别 灵活 。 结 构 类 型 从 System.ValueType 继承 ， 并 且 不 能 被 继承 。 结 构 类 型 


的 变量 直接 包含 结构 的 数据 。 
例如 可 以 这 样 定义 点 的 坐标 的 结构 : 


Structure Point 


Public x, y As Integer 


Public Sub New(x As Integer, 


y As Integer) 


119 
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Me .X = x 
MS = yw 
End Sub 


End Structure 
对 结构 类 型 的 成 员 的 访问 可 通过 结构 变量 名 加 上 “.” 后 面 跟 成 员 的 名 称 来 完成 ， 
例如 : 


Point a = new Point (10, 10) 


Point b = a 
a.x = 100 
Console.WriteLine(b.x) 
其 中 ,a 和 b 都 是 Point 结构 类 型 的 变量 。 结 构 类 型 包含 的 成 员 的 数据 类 型 可 以 相同 ， 
也 可 以 不 同 ， 并 没有 限制 。 结 构 类 型 的 成 员 本 身 也 可 以 是 结构 类 型 的 数据 。 
对 于 结构 ， 每 个 变量 都 有 自己 的 数据 副本 ， 因 此 对 一 个 变量 进行 的 操作 不 可 能 影响 
另 一 个 变量 。 例 如 上 面 的 示例 ， 将 a 赋 给 b 将 创建 该 值 的 一 个 副本 ， 因 此 b 不 会 受到 对 
ax 进行 的 赋值 的 影响 ， 代 码 片 段 输出 值 为 10。 假 如 Point 被 改 而 声明 为 类 ， 则 由 于 a 和 
b 将 引用 同一 对 象 ， 因 此 输出 将 为 100。 有 关 类 的 介绍 将 在 下 一 小 节 中 介绍 。 


2. 引用 类 型 


引用 类 型 指 的 是 该 类 型 的 变量 不 直接 存储 所 包含 的 值 ， 而 是 指向 它 所 要 存储 的 值 ， 
也 就 是 说 ,引用 类 型 存储 的 是 实际 数据 的 引用 地 址 。VB.NET 中 的 引用 类 型 有 如 下 几 种 : 
Æ (Class Type)、 接 口 (Interface Type)、 数 组 (Array Type) 和 代理 (Delegate Type) 类 
型 。 下 面 主要 介绍 类 和 数组 这 两 种 常用 的 引用 类 型 。 

(1) 类 类 型 (Class Type)。 类 是 面向 对 象 编程 的 基本 单位 ， 是 一 种 包含 数据 成 员 、 
函数 成 员 以 及 秋 套 类 型 的 数据 结构 ， 其 中 数据 成 员 包括 常数 、 变 量 和 事件 ， 函 数 成 员 包 
括 方法 、 属 性 、 索 引 器 、 运 算 符 和 构造 函数 等 。 

类 类 型 支持 继承 ， 继 承 是 派生 类 用 以 扩展 和 专用 化 基 类 的 机 制 。 对 于 类 ， 两 个 变量 
引用 同一 个 对 象 是 可 能 的 ， 因 此 对 一 个 变量 进行 的 操作 可 能 影响 另 一 个 变量 所 引用 的 对 


下 面 的 示例 显示 了 一 个 包含 各 种 类 成 员 的 类 : 
Imports System 
Class AClass 


Public Sub New() 
Console.WriteLine("Constructor") 


End Sub 


Public Const MyConst As Integer - 12 


Public MyVariable As Integer - 34 


Public Sub MyMethod() 


Console.WriteLine ("MyClass .MyMethod") 
End Sub 


Public Property MyProperty() As Integer 
Get 
Return MyVariable 
End Get 
Set (ByVal Value As Integer) 
MyVariable = value 
End Set 


End Property 


Default Public Property Item(index As Integer) As Integer 
Get 
Return 0 
End Get 
Set (ByVal Value As Integer) 
Console.WriteLine("item(" & index & ") =" & value) 
End Set 


End Property 


Public Event MyEvent () 
Friend Class MyNestedClass 
End Class 

End Class 


下 面 的 示例 显示 了 这 些 成 员 的 使 用 : 


Module Test 


Dim WithEvents aInstance As AClass 


Sub Main() 


' 构造 函数 的 用 法 


Dim a As New AClass() 


Dim b As New AClass() 


' 常量 的 用 法 


Console.WriteLine("MyConst = " & AClass.MyConst) 
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1 Abs 


的 用 法 


a.MyVariable += 1 


Console.WriteLine("a.MyVariable = " & a.MyVariable) 


:方法 的 调用 方法 
a.MyMethod () 


， 属性 的 使 用 方法 
a.MyProperty += 1 


Console.WriteLine("a.MyProperty = " & a.MyProperty) 


a(1) 


= 2 


， 事件 处 理 方法 


aInstance =a 


End Sub 


Sub MyHandler Handles aInstance.MyEvent 


Console.WriteLine("Test.MyHandler") 
End Sub 


End Module 


运行 结果 为 : 


Constructor 


Constructor 


MyConst - 


12 


a.MyVariable = 35 


MyClass.MyMethod 


a.MyProperty - 36 


item(1) = 


2 


(2) 数组 类 型 (Array Type)。 数 组 是 指 同类 数据 组 成 的 集合 ， 它 包含 多 个 通过 “ 索 
引 ” 访 问 的 变量 ， 该 索引 以 一 对 一 的 方式 对 应 于 数组 中 的 变量 顺序 ， 是 数据 最 常用 的 存 


储 方式 之 一 。 


数组 中 包含 的 变量 (又 称 数 组 的 “元 素 ”) 必须 具有 相同 的 类 型 ， 该 类 型 称 为 数组 
的 “元 素 类 型 ” 数组 元 素 在 数组 实例 创建 时 出 现 ， 在 数组 实例 销毁 时 消失 。 每 个 数组 元 
素 都 初始 化 为 其 类 型 的 默认 值 。 类 型 System. Array 是 所 有 数组 类 型 的 基 类 型 ， 不 能 实例 
化 ,每 个 数组 类 型 继承 由 System.Array 类 型 声明 的 成 员 , 并 且 可 以 转换 为 Array 或 Object。 
数组 有 一 个 “ 秩 ” 用 于 确定 同 每 个 数组 元 素 关 联 的 索引 数 。 数 组 的 秩 还 等 于 数组 


的 “维度 ” 数 。 例 如 ， 秩 为 1 的 数组 称 为 一 维 数组 ， 秩 大 于 1 的 数组 称 为 多 维 数组 。 


定义 数组 时 ， 可 以 在 “()” 中 定义 数组 的 元 素 个 数 。 如 : 


Dim arr(5) As Integer 


使 用 数组 时 可 以 在 “()” 中 加 入 下 标 来 取得 对 应 的 数组 元 素 。 与 VB 的 早期 版 本 不 
同 ， 在 VB.NET 中 ， 数 组 索引 的 编号 总 是 从 零 开始 ， 一 直到 数组 元 素 个 数 减 去 1。 例 如 
上 面 定义 的 整数 型 一 维 数 组 arr 的 元 素 个 数 是 5， 它 的 第 一 个 元 素 是 ar (0)， 第 二 个 和 
第 三 个 分 别 是 arr CI) 和 arr (2). 

下 面 的 示例 创建 一 个 整数 值 的 一 维 数 组 ， 初 始 化 数组 元 素 并 将 它们 分 别 打印 出 来 : 


Module Test 


Sub Main() 
Dim arr(5) As Integer 
Dim i As Integer 
For i = 0 To arr.GetUpperBound (0) 
Eee (ab) m ak SP ab 
Next i 
For i = 0 To arr.GetUpperBound (0) 
Console: Nritcerine (Jarr (U c SUE scm 
Next i 
End Sub 
End Module 
FEF INH 
arr(0) = 0 
arr(l) = 1 


结果 如 下 : 


imm 


pB 


arr(2) = 4 
arr(3) = 9 
arr(4) = 16 

下 面 来 看 看 代码 。 首 先 通过 如 下 代码 新 建 了 长 度 为 5 的 Integer 类 型 数组 arr: 

Dim arr(5) As Integer 

接着 给 arr 数组 的 元 素 赋 初 值 ， 这 个 操作 是 通过 一 个 for 循环 完成 的 ， 需要 注意 的 是 
arr.GetUpperBound(0)， 该 属性 返回 数组 第 一 维 的 上 界 。 

该 循环 执行 完 以 后 , arr 数组 中 的 每 个 元 素 都 有 自己 的 值 ， 其 值 为 数组 元 素 下 标的 平 
方 数 ， 如 arr 数组 的 第 4 个 元 素 arr[3] 的 值 为 3 的 平方 ， 即 9。 赋 值 完成 后 通过 另外 一 个 
for 循环 来 读 取 并 显示 arr 数组 中 元 素 的 值 。 

数组 的 每 个 维度 都 有 一 个 关联 的 长 度 。 数 组 长 度 并 不 是 数组 类 型 的 一 部 分 ， 而 是 在 
运行 时 创建 数组 类 型 的 实例 时 确定 。 维 度 的 长 度 确定 该 维度 的 有 效 索 引 范 围 ， 对 于 长 度 
为 N 的 维度 ， 索 引 范 围 可 为 从 O-N - 1。 如果 维 度 的 长 度 为 零 ， 则 该 维度 没有 有 效 索 引 。 
数组 中 的 元 素 总 数 是 数组 中 各 维度 长 度 的 积 。 如 果 数 组 的 维度 长 度 中 有 任何 为 零 ， 就 说 
明 该 数组 为 空 。 数 组 的 元 素 类 型 可 以 是 任何 类 型 。 
指定 数组 类 型 的 方法 是 向 现 有 类 型 名 添加 修饰 符 ， 修 
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维度 数 是 去 


多 个 有 去 号 组 成 的 集合 和 一 个 右 括 号 组 成 。 经 修饰 的 类 型 为 数组 的 元 素 类 型 ， 


号 的 数目 加 1。 如 果 指 定 


取 顺 序 是 自 左 向 右 ， 最 左边 的 修饰 符 是 最 外 层 的 数组 。 在 下 


Module Test 


一 个 以 上 的 修饰 符 ， 则 数组 的 元 素 类 型 是 数组 。 修 饰 符 的 读 


面 的 示例 中 : 


Dim arr As Integer(,) (,,) O 


End Module 


arr 的 元 素 类 型 是 一 维 Integer 数组 的 三 维 数组 的 二 维 数 组 。 


还 可 在 变量 名 上 放置 数组 类 型 修饰 符 或 数组 初始 化 修饰 符 ， 


将 变量 声明 为 数组 类 


型 。 在 这 种 情况 下 ， 数 组 元 素 类 型 为 声明 中 给 定 的 类 型 ， 
为 清楚 起 见 ， 在 同一 声明 中 的 变量 名 和 类 型 名 上 都 放置 数组 类 型 修饰 符 是 无 效 的 。 
下 面 的 示例 显示 各 种 将 Integer 数组 类 型 


定 。 


Module 
Sub Main() 


Test 


Dim al() As Integer 
Dim a2(,) As Integer 
Dim a3(,,) As Integer 
End Sub 
End Module 


数组 的 维度 由 变量 名 修饰 符 确 


] 作 元 素 类 型 的 局 部 变量 声明 : 


' 声明 Integer 类 型 的 一 维 数 组 
' 声 明 Integer 类 型 的 二 维 数组 
' 声 明 Integer 类 型 的 三 维 数组 


(4.2.3 常用 的 操作 符 


运算 符 是 程序 中 】 


] 来 执行 计算 操作 的 符号 ， 


VB.NET 有 一 套 完 整 的 运算 符 ， 包 括 算 


术 运 算 符 、 赋 值 运算 符 、 比 较 运 算 符 、 连 接 运 算 符 和 逻辑 运算 符 。 表 4-2 列举 了 VB.NET 


c 


所 文 持 的 操作 符 。 


下 面 分 别 予 以 介绍 。 
对 表达 式 作 算术 操作 ， 如 加 、 减 、 乘 、 除 ， 如 表 4-3 所 示 。 


算术 运算 符 是 
赋值 运算 符 用 于 给 对 象 赋值 ， 如 表 4-4 所 示 。 
比较 运算 符 用 于 比较 数值 和 字符 串 ， 如 表 4-5 所 示 。 
表 4-2 VB.NET 中 的 操作 符 

操作 符 类 别 操作 符 
算术 +- */\ Mod ^ 
赋值 = t= -= *=/= %=|=%= <<= >>= &= 
比较 IS =<><><= >= 
连接 +& 
逻辑 / 按 位 运算 符 And Not Or Xor AndAlso OrElse 
移 位 <<>> 
其 他 运算 符 AddressOf GetType 


表 4-3 算术 运算 符 


运算 符 实现 操作 示例 
+ 加 法 A=3,B=2 ”A+B 的 结果 是 5 
5 减法 A=3,B=2 A-B 的 结果 是 1 
乘法 A=3,B=2 ”A*B 的 结果 是 6 
/ 除法 A=3,B=2 ”A/B 的 结果 是 1.5 
\ 整除 A=3,B=2 ”A\B 的 结果 是 1 
指数 运算 A=3,B=2 ASB 的 结果 是 9 
Mod 求 余 运算 A-3,B-2 ”A mod B 的 结果 是 1 
表 4-4 赋值 运算 符 
运算 符 示例 说 明 
E A-B &t B 的 值 赋 给 A 
+= A+=B 将 A+B 的 值 赋 给 A 
= A-=B 和 A-B 的 值 赋 给 A 
# 一 A*-B 4 A*B 的 值 赋 给 A 
l= A/=B 将 A/B 的 值 赋 给 A 第 
v A\=B 将 ANB 的 值 赋 给 A E 
&- A&-B 将 A&B 的 值 赋 给 T 
^- A^-B 将 A^B 的 值 赋 给 A 
连接 运算 符 用 于 连接 字符 串 ， 如 表 4-6 所 示 。 v 
逻辑 运算 符 用 于 连接 多 个 条 件 式 ， 并 判断 结果 的 真 假 以 决定 程序 流程 ， 如 表 4-7 所 图 
m. = 
ux 
表 4-5 比较 运算 符 介 
运算 符 实现 操作 示例 
= 等 于 A=3,B=2 A=B 的 结果 是 False 
<> 不 等 于 A=3,B=2 ”A+<>B 的 结果 是 True 
< 小 于 A=3,B=2 A<B 的 结果 是 False 
> 大 于 A=3,B=2 ADB 的 结果 是 True 
<= 小 于 等 A=3,B=2  A<=B 的 结果 是 False 
>= 大 于 等 于 A-3,B-2 ”A>=B 的 结果 是 True 
Is 是 否 为 同一 对 象 A,B 均 为 Objectl 类 型 Ais B 的 结果 是 True 
Like 是 否 符合 字符 串 规 则 “asd234fgh” like “zx?bn*” 的 结果 是 True 
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表 4-6 连接 运算 符 


运算 符 示例 说 明 
当 A 与 B 都 是 String 型 ， 或 者 一 个 是 String 型 ， 一 个 是 Object 型 ， 或 
+ Result=A+B MOMS . : ‘ - pum 
者 都 是 存储 字符 串 的 Object WIN, Result 为 A 与 B 的 合并 字符 串 
无 论 A 5 B 为 何 种 类 型 ， 都 会 自动 转化 为 String 型 ，Result X A 与 B 
& Result=A&B PES 
的 合并 字符 串 
4-7 逻辑 运算 符 
运算 符 | 实现 操作 示例 
E Result=A AndB A 与 B 都 是 布尔 型 ,如 果 有 一 个 为 False, 则 Result 为 False， 
And 与 运算 
否则 为 True 
cu Result=A Not B A&K, WR AX True, W) Result 为 False, FWA 
Not 非 运算 
True 
Or 或 运算 Result=AOrB A 与 B 中 有 一 个 为 Tue， 则 Result 为 True, FWJ False 
id. Result=A XorB  A 与 B 同时 为 True， 或 同时 为 False， 则 Result 为 False, 
Xor 异 或 运算 
否则 为 True 


zi 

当 表 达 式 包含 多 个 运算 符 时 ， 将 按 预定 顺序 计算 每 一 部 分 ， 这 个 顺序 被 称 为 运算 符 
优先 级 。 可 以 使 用 括号 越过 这 种 优先 级 顺序 ， 强 制 首 先 计算 表达 式 的 某 些 部 分 。 运 算 时 ， 
总 是 先 执 行 括号 中 的 运算 符 ， 然 后 再 执行 括号 外 的 运算 符 。 但 是 ， 在 括号 中 仍 遵循 标准 
运算 符 优 先 级 : 首先 计算 算术 运算 符 ， 然 后 计算 比较 运算 符 ， 最 后 计算 逻辑 运算 符 。 所 
有 比较 运算 符 的 优先 级 相同 ， 即 按照 从 左 到 右 的 顺序 计算 比较 运算 符 。 算 术 运 算 符 和 逻 
骨 运 算 符 的 优先 级 从 高 到 低 如 表 4-8 所 示 。 

字符 串 串 联运 算 符 (&) 不 是 算术 运算 符 ， 但 它 在 优先 级 方面 与 算术 运算 符 属 于 
组 。 当 具有 相同 优先 顺序 的 运算 符 〈 例 如 乘法 和 除法 ) 在 表达 式 中 一 起 出 现时 ， 每 个 运 
算 符 将 按 其 出 现 的 顺序 从 左 至 右 进 行 计算 。 可 以 使 用 括号 来 改写 优先 顺序 ， 以 强制 优先 
计算 表达 式 的 某 些 部 分 。 
建议 在 书写 表达 式 时 ， 如 果 无 法 确定 操作 符 的 有 效 顺序 ， 应 尽量 使 用 括号 来 保证 运 
算 顺 序 的 正确 性 。 遇 到 比较 复杂 的 表达 式 ， 即 使 能 理 清 操作 符 的 顺序 ， 也 要 使 用 括号 ， 
因为 这 样 可 以 使 程序 一 目 了 然 ， 而 且 可 以 保证 在 若干 天 后 对 程序 的 修改 能 够 顺利 进行 。 


x 


44-8 运算 符 优先 级 
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算术 运算 符 比较 运算 符 逻辑 运算 符 
Hk 符号 HIR 符号 pas 符号 
RR i 等 于 = 逻辑 非 Not 
正 、 负 号 |n- 不 等 于 <> 逻辑 与 And 


字符 串 连 接 & 


[04.2.4 数据 类 型 的 转换 


类 型 转换 使 得 一 个 类 
种 方式 转换 数据 类 型 。 下 
(1) 转换 函数 。 


型 的 表达 方式 可 以 作为 男 一 利 
面 分 别 进行 简要 介绍 。 
VB.NET 提供 了 多 个 简单 易 记 的 类 型 转换 函数 ， 如 表 4-9 所 示 。 


例如 ， 将 输入 的 数值 进行 运算 后 ， 转 换 为 字符 串 输出 。 


表 4-9 类 型 转换 函数 


类 型 来 使 用 。 


在 VB.NET 中 有 两 


函数 名 称 说 明 
CBool(Value) 将 Value 值 转换 为 布尔 值 。 若 Value 为 0， 则 转换 为 False， 和 否则 转换 为 True 
CShort(Value) 
CInt( Value) 将 Value 值 转换 为 短 整 数 类 型 /整数 类 型 /长 整数 类 型 
CLong(Value) 
CSng(Value) " i xg Rep auTO "T ee E " 
CDbl( Value) 将 Value 值 转换 为 单 精 度 浮 点 数 类 型 / 双 精 度 浮 点 数 类 型 /小 数 类 型 。 若 Value 为 
alue 
0， 则 转换 为 False， 和 否则 转换 为 True 
CDec(Value) 
CByte(Value) 将 Value 值 转换 为 字 节 类 型 
CChar(Value) -——— 
将 Value 值 转换 为 字符 /字符 串 类 型 
CStr(Value) 
CObj(Value) 将 Value 值 转换 对 象 类 型 
CDate(Value) 将 Value 值 转换 为 日 期 时 间 类 型 


Dim A As Integer 
A-10 


Response.Write("—Jlifj" & CStr(A) " 行 代码 ! v) 


(2) 类 型 转换 方法 To. TE.NET 中 ， 所 有 的 东西 都 是 对 象 ， 
象 ， 叙 述 也 是 对 象 。 这 些 对 象 本 身 就 提供 了 类 型 转换 的 方法 。 
类 型 转换 方法 的 语法 如 下 : 


变量 = 变量 .To 类 型 


例如 ， 将 数值 类 型 的 变量 转换 为 字符 串 类 型 的 代码 如 下 : 


Dim Odata As Short 


Tp B 
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Q 
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Response.Write ("变量 Odata 中 的 值 是 : "+Odata.ToString 
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() ) 


VB.NET 中 常用 的 To 类 型 转换 方法 如 表 4-10 所 示 。 
表 4-10 常用 的 To 类 型 转换 方法 
方法 说 明 
ToString() 转换 为 字符 串 
ToChar() 转换 为 字符 
ToLower(). ToUpper 字符 串 转 小 写 /大 写 
Tomt320 ~ Tolnt64() 转换 为 整数 /长 整数 
ToDecimal(). ToSingle(). ToDouble() 转换 为 数值 / 单 精 度 / 双 精度 
ToBoolean(. ToDateTime() 转换 为 布尔 型 /日 期 


[[1.2.5 程序 的 注释 及 续 行 


任何 程序 语言 都 支持 注释 ， 因 为 适当 的 注释 会 使 程序 更 加 易于 阅读 和 修改 ， 被 注释 


的 内 容 对 程序 的 编译 和 执行 没有 任何 实际 作用 
首先 就 会 忽略 源 代码 的 注释 内 容 。 


事实 上 一 般 的 编译 程序 在 编译 源 代码 时 


VB.NET 支持 两 种 注释 风格 ,第 一 种 是 使 用 单 引 号 “”, 男 外 一 种 是 使 用 关键 字 REM. 
这 两 种 注释 都 用 于 注释 单行 文本 ， 也 就 是 单 引 号 或 REM 后 的 内 容 就 是 注释 的 内 容 。 由 


于 只 能 注释 单行 文本 内 容 ， 一 旦 需要 注释 的 内 容 过 多 需要 分 行 显示 时 就 必须 在 另外 的 行 


前 面 也 加 上 “'” 或 REM， 比 如 下 面 的 代码 ; 
REM 用 户 姓名 


Dim userName As [String] 


Dim userEmail As [String]  ' 用 户 的 Email 地 址 


"Email 的 格式 应 该 是 name@hotst .xxx 


VB.NET 的 每 一 行 表示 语句 结束 ， 如 果 需 要 在 一 行 编写 


多 条 语句 , 应 该 使 用 冒号 “:” 


将 语 馈 隔 开 。 如 果 一 条 语句 过 长 ， 需 要 分 行 编写 ， 则 应 该 在 第 一 行 最 后 加 上 下 划 线 “_” 


表示 语句 未 结束 ， 下 一 行 仍然 属于 该 语句 


代码 后 面 并 没有 添加 “_”。 


(14.2.6 选择 与 循环 


句 ， 下 面 分 别 进行 简要 介绍 。 


1. 选择 控制 


VO X94dey) 


选择 语句 使 程序 控 和 


= 


需要 注意 的 是 ， 本 书 由 于 排版 原因 ， 原 本 一 行 编写 的 代码 可 能 分 为 两 行 显示 ， 此 时 


程序 不 可 能 永远 顺序 执行 ， 必 要 的 时 候 必须 使 用 循环 和 判断 语句 来 改变 程序 的 执行 
方式 ， 因 此 大 多 数 程序 设计 语言 提供 了 分 支 和 循环 语句 。VB.NET 也 提供 了 许多 控制 语 


基于 某 个 条 件 是 否 为 真传 递 给 特定 的 语句 。VB.NET 中 的 选择 


"ubl TE JT If... Then 语句 和 Select...Case 语句 。 


C1) If... Then 语句 是 根据 布尔 表达 式 的 值 选择 要 执行 的 语句 ， 它 的 形式 为 : 


wr Caneel 


| stetenerets | 

[ ElseIf elseifcondition [ Then ] 
[ elseifstatements ] ] 

[ Else 
[ elsestatements ] ] 


End If 

或 者 : 

If condition Then [ statements ] [ Else elsestatements | 

FLA, condition 是 计算 结果 为 True BY False, RE VE $145 RA Be e BAe HA Boolean 
的 数据 类 型 的 条 件 表达 式 , 是 必 选 项 。Elseifcondition 的 意义 与 此 相同 , KFE Elself 时 ， 
则 是 必 选 项 。 

Statements 是 当 condition 为 True 时 将 执行 的 语句 块 , 在 多 行 格 式 中 是 可 选项 ,在 没 
有 Else 子 句 的 单行 格式 中 是 必 选 项 。Elseifstatements 的 意义 与 此 相同 。 

End 下 用 于 终止 If...Then 块 。 

下 面 通过 一 个 简单 实例 演示 条 件 选择 语句 的 用 法 ， 代 码 如 下 : 


Dim Number, Digits As Integer 


Dim MyString As String 
Number = 53  ' 变量 初始 化 


If Number « 10 Then 
IDa&eniqs. — 1 
ElseIf Number < 100 Then 
' 由 于 Number 满足 此 条 件 ， 因 此 下 面 将 给 Digits 赋值 为 2 
Digits = 2 


Else 


Digits = 3 

End If 

在 上 面 的 代码 中 , 第 三 行将 变量 Number 初始 化 为 53, 接 下 来 根据 条 件 给 变量 Digits 
IME. WR Number 小 于 10， 则 Digits 为 1; 如 果 不 小 于 10 但 小 于 100， 则 Digits X 2; 
否则 Digits 为 3。 

(2) Select...Case 语句 ， 当 一 个 条 件 有 多 种 可 能 ， 且 每 一 种 可 能 对 应 不 同 的 操作 时 ， 
可 以 使 用 多 个 if...else 语句 来 实现 。 但 这 种 表示 方法 并 不 直观 ， 尤 其 是 条 件 的 可 能 性 比 
较 多 时 ， 很 容易 出 错 。 利 用 Select..Case 语句 则 可 直观 、 简 便 地 实现 。 它 的 形式 为 : 


Select [ Case testexpression 


[ Case expressionlist 


[ statements ] ] 
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[ Case Else 


[ elsestatements ] ] 


End Select 


其 中 ，testexpression 是 计算 结果 为 某 个 基本 数据 类 型 的 表达 式 ， 必 选项 。 
Expressionlist 是 可 以 隐 式 地 转换 为 testexpression 类 型 的 表达 式 列 表 ， 表 示 


testexpression 的 匹配 值 ， 在 Case 语句 中 是 必 选 项 。 多 个 表达 式 子 句 用 逗号 隔 开 ， 每 个 子 


句 可 以 采取 下 面 的 某 一 种 形式 : 


LU 


1) expression! To expression2. [EH] To 关键 字 指 定 testexpression 的 匹配 值 范围 的 边 


Jt. expression! 的 值 必 须 小 于 或 等 于 expression2 的 值 。 


2) [Is ] comparisonoperator expression。 使 用 Is 关键 字 指 定 对 testexpression 的 匹配 


值 的 限制 。 如 果 没 有 提供 Is 关键 字 ， 则 自动 将 它 在 comparisonoperator 的 前 面 插入 。 


3) expression。 作 为 Is 格式 的 特殊 情况 来 处 理 ， 在 此 情况 下 comparisonoperator 是 


等 号 (=)。 此 格式 作为 testexpression = expression 计算 。 


Statements 是 Case 后 面 的 一 条 或 多 条 语句 ， 当 testexpression JCC expressionlist 中 的 


任何 子 句 时 执行 。Elsestatements 是 Case Else 后 面 的 一 条 或 多 条 语句 ， 当 testexpression 


不 匹配 任何 Case 语句 的 expressionlist 中 的 任何 子 句 时 执行 。 


End Select 终止 Select...Case 块 。 
Select 语句 可 以 包含 任意 数量 的 case 实例 ,但 同一 Select 语句 中 的 两 个 case 常数 不 


能 具有 相同 的 值 。 


TH 
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下 面 的 例子 使 用 Select Case 语句 写 入 对 应 于 变量 Number 的 值 的 行 。 第 二 个 Case 


名 包含 匹配 Number 当前 值 的 值 ， 因 此 执行 号 入 “Between 6 and 8” 的 语句 。 


Dim Number As Integer = 8 


Select Number  ' 要 比较 的 数值 
Case 1 To 5. “fete 1-5 |] 
Debug.WriteLine("Between 1 and 5") 
' The following is the only Case clause that evaluates to True 
Case 6, 7, 8 “' 是 否 为 6、7 或 8 
Debug.WriteLine ("Between 6 and 8") 
Case 9 To 10 ' 是 否 为 9 或 10 
Debug.WriteLine("Greater than 8") 
Case Else  ' 其 他 情况 
Debug.WriteLine("Not between 1 and 10") 
End Select 


2. 循环 控制 
通过 使 用 循环 语句 可 以 创建 循环 。 例 如 ， 需 要 输出 1 ~100 这 100 个 数字 ， 显 然 不 


应 该 写 100 条 输出 语句 ， 这 时 就 需要 使 用 循环 。 


(1) do 语句 重复 执行 一 个 语句 或 一 个 语句 块 , 直到 指定 的 表达 式 的 值 为 false 为 止 。 


它 的 形式 如 下 : 


Do ( While Until ) condition 


ESIEaeemermes | 
i impete JBXo) |] 

[ statements ] 
Loop 
或 者 : 
Do 

[ statements ] 
Le IDS) ] 


[ statements ] 


Loop ( While Until ) condition 


其 中 , While 或 Until 是 关键 字 , 但 只 能 选 其 一 。 使 


为 False; 使 用 Until 时 ， 重 复 循环 直到 condition 为 True. 


Condition 是 计算 结果 为 True 或 False 值 的 表达 式 。 
Statements 一 条 或 多 条 语句 , 它们 在 condition 为 True 时 或 直到 condition 为 True 之 


前 重复 执行 。 


Exit Do 语句 经 常用 在 计算 某 个 条 件 〈( 例 如 ， 


] While 时 , 重复 循环 直到 condition 


出 
7 


| If...Then...Else) 之后， 将 控制 立即 


传送 到 Loop 语句 后 面 的 语句 。 可 以 在 Do 循环 中 的 任何 位 置 放置 任何 数量 的 Exit Do 语 


fj. 


下 面 的 例子 显示 如 何 使 用 Do...Loop 语句 。 内 层 的 Do...Loop 语句 循环 10 次 , 将 标 


退出 。 
Dim Check As Boolean = True 
Dim Counter As Integer = 0 
Do  ' 外 层 循环 

Do While Counter < 20 


Counter += 1 
If Counter = 10 Then 
Check = False 
Exit Do 
End If 
Loop 
Loop Until Check = False 


志 值 设置 为 False， 并 使 用 Exit Do 语句 提前 退 呈 


， 内 层 循环 
， 计 数 器 加 1 


， 如 果 条 件 为 丰 


' 将 标记 设置 为 false 


' 跳出 内 层 循 环 


”跳出 外 


层 循环 


(2) while 语句 执行 一 个 语句 或 语句 块 ， 直到 指定 的 表 i 


式 如 下 : 


While condition 


循环 。 外 层 循 环 则 在 检查 标志 值 后 立即 


HA false Aik. EMT 
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[ statements | 


End While 
JE, condition 是 值 为 布尔 型 的 表达 式 。 如 果 为 Nothing， 则 将 condition 作为 False 


处 理 。 当 condition 为 True 时 ， 执 行 所 有 的 statements 直到 过 到 End While 语句 ， 随 后 返 


E 复 上 而 的 过 程 。 如 


回 到 While 语句 并 再 次 检查 condition。 如 果 condition 仍 为 True, WH 


果 为 False， 则 从 End While 语句 后 
下 面 的 示例 使 用 While...End While 语句 来 增加 计数 器 变量 的 值 。 


True， 就 执行 循环 内 的 语句 。 


Dim Counter As Integer = 0 


While Counter < 20 
Counter += 1 
End While 


Debug.WriteLine (Counter) 


四 的 语句 开始 恢复 执行 。 


只 要 条 件 计 算 为 


' 测试 Counter 的 值 
' Counter 加 1 
' 当 Counter > 19 时 停止 循环 


' 输出 Counter fH 


(3) for 语句 循环 重复 执行 一 个 语句 或 语句 块 ， 直 到 指定 的 表达 式 值 为 false。 它 的 


形式 如 下 : 


For counter [ As datatype ] = start To end [ Step stepnumber ] 


[ statements ] 
[ Exit For ] 
[ statements ] 


Next [ counter ] 


其 中 counter 的 数据 类 型 通 


常 是 Integer， 但 也 可 以 是 任何 文 持 大 于 或 等 于 (>=)、 小 


于 或 等 于 (<=) 和 相 加 〈+) i85 
则 应 


符 的 基本 数值 类 型 。 如 果 尚 未 声明 counter 的 数据 类 型 ， 


] As datatype 声明 其 数据 类 型 。 


start 和 end 分 别 表示 Counter 的 初 值 和 终 值 ， 通 常 是 结果 为 Integer 类 型 的 表达 式 。 


stepnumber 指定 每 次 循环 后 counter 的 增 量 ， 通 常 是 结果 为 Integer 类 型 的 表达 式 。 
如 果 没 有 指定 ， 则 stepnumber 的 值 默 认为 1。 

每 次 进入 循环 前 ， 将 counter 变量 和 end 进行 比较 ,包括 第 一 次 执行 For 语句 。 如 果 
start 的 值 超过 end 的 值 ， 则 循环 不 执行 ， 并 且 立 即将 执行 传递 到 Next 语句 后 面 的 语句 。 
否则 循环 语句 执行 后 ， 将 stepnumber 添加 到 counter， 然 后 再 次 比较 counter 和 end. EE 
较 的 结果 或 是 再 次 执行 循环 中 的 语句 ， 或 是 终止 循环 并 继续 执行 Next 语句 后 面 的 语句 。 

Exit For 语句 经 常 在 计算 某 个 条 件 〈 例 如 ， 用 If...Then...Else 语句 ) 之 后 使 用 ， 将 控 
制 立 即 传送 到 Next 语句 后 面 的 语句 。 可 以 在 For...Next 循环 中 放置 任何 数量 的 Exit For 


语句 。 
下 面 的 示例 使 用 For...Next 语句 创建 字符 串 ， 字 符 串 包含 10 个 从 0~9 的 数字 ， 字 符 
串 之 间 用 一 个 空格 隔 开 。 外 层 循环 使 用 一 个 循环 计数 器 变量 ， 每 循环 一 次 ， 变 量 值 减 1。 


Dim Words, Digit As Integer 


Dim MyString As String 


For Words = 10 To 1 Step -1 


Toe Deue = O "9 $ 


MyString = MyString & CStr(Digit) ' 将 数字 转化 为 字符 
Next Digit ' Increment counter. 
MyString = MyString & " "  ' I Eig 


Next Words 

(4) for each..in 语句 枚 举 集合 类 型 中 的 元 素 ， 为 每 个 元 素 执行 一 次 语句 块 ， 用 于 
循环 访问 集合 以 获取 所 需 信 息 ， 但 不 应 用 于 更 改 集合 内 容 ， 以 避免 产生 不 可 预知 的 副 作 
j。 此 语句 的 形式 如 下 ; 


For Each element [ As datatype ] In group 


— 


| stetemerts | 
MEIE EOr || 
| etetenmsrta | 
mies | eleme | 
HF, element 是 数据 类 型 为 group 元 素 的 数据 类 型 能 够 隐 式 转换 到 的 类 型 的 变量 ， 
于 循环 访问 集合 的 元 素 。 当 尚未 声明 element 的 类 型 时 , datatype 用 于 声明 其 数据 类 型 ， 
否则 不 能 使 用 As 子 句 来 重新 声明 它 。 
Group 是 引用 对 象 集合 或 数组 的 对 象 变量 。 如 果 在 group 内 至 少 有 一 个 元 素 ， 则 进 
入 For Each...Next 循环 。 一旦 进入 该 循环 ， 则 针对 group 内 的 第 一 个 元 素 执行 语句 ， 如 
A group 内 有 更 多 元 素 ， 则 继续 针对 每 个 元 素 执行 循环 内 的 语句 。 当 没有 更 多 元 素 时 ， 
终止 循环 并 且 继 续 执 行 Next 语句 后 面 的 语句 。 
下面 的 示例 使 用 For Each...Next 语句 搜索 集合 中 所 有 元 素 的 Text 属性 以 查找 Hello 
字符 串 。 在 该 示例 中 ，MyObject 是 与 文本 相关 的 对 象 ， 并 且 是 集合 MyCollection 的 一 个 
元 素 。 它 们 两 个 都 是 仅 用 于 说 明 目 的 的 一 般 名 称 。 


Dim Found As Boolean - False 


Dim MyCollection As New Collection 


For Each MyObject As Object In MyCollection ' GRUT 7638 
If CStr(MyObject.Text) = "Hello" Then ' 如 果 元 素 的 Text 属性 为 Hello 
Found = True  ' 将 标记 Found 设置 为 true 
Exit ror :跳出 循环 
End If 
Next 


433 Web Et% 


在 ASP.NET 中 ， 一 个 网 页 或 窗口 被 看 成 是 一 个 Web fis, Web 窗 体 是 一 个 被 赋予 
属性 、 方 法 和 事件 的 对 象 。 作 为 ASP 的 逻辑 演变 ，Web 窗 体 框架 创建 和 使 用 可 封装 常 ) 
功能 的 可 重用 UL 控件， 并 由 此 减少 网 页 开发 人 员 必 须 编 写 的 代码 量 的 能 


Web 窗 体 的 后 级 名 是 ASPX,， 当 浏览 器 客户 端 请 求 .aspx 资源 时 , ASP.NET 运行 库 分 
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析 目 标 文 件 并 将 其 编译 为 一 个 .NET Framework 类 ， 此 类 可 用 于 动态 处 理 传 入 的 请 求 。 
Web 页 的 逻辑 由 代码 组 成 ， 这 些 代 码 由 用 户 创建 ， 以 与 窗 体 进行 交互 。 编 程 逻辑 位 于 与 
用 户 界面 文件 不 同 的 文件 中 ， 该 文件 称 为 “代码 隐藏 ”文件 ， 并 具有 .aspx.vb 或 .aspx..cs 


扩展 名 。 


[L]4.3.1 编写 第 一 个 Web 窗 体 


下 面 来 看 一 个 简单 的 Web 页 面 ， 以 加 快 读者 对 web 页 面 的 熟悉 。 在 Dreamweaver 
或 Visual Web Developer 中 新 建 一 个 ASPNET 页 面 ， 语 言 为 VB.NET， 切 换 到 “代码 ” 
视图 或 “ 源 ” 视 图 ， 添 加 如 下 代码 : 


«!-- myfirstpage.aspx--» 


«form action-"myfirstpage.aspx" method-"post"» 


«h3» 姓名 : «input id="name" type=text> 


所 在 城市 : <select id="city" size=1> 
<option> 北 京 </option> 


<option> 上 海 </option> 


«option» EÉJX«/option» 


«/select» 


«input type=submit value=" 查 询 "> 

«/form» 

属性 method 决定 如 何 将 收集 的 用 户 输入 组 成 的 字符 串 发 送 给 Web 服务 器 。 如 果 
method 为 get, 将 通过 查询 字符 串 发 送 。 查询 字符 串 是 一 个 可 选 字符 串 , 位 于 网 页 的 URL 
末尾 。 如 果 网 站 的 URL 中 包含 问号 〈? )， 则 问号 后 的 所 有 内 容 都 是 查询 字符 串 。 

如 果 method 设置 为 post， 收 集 的 用 户 输入 内 容 将 通过 HTTP 发 送 ， 则 URL 末尾 没 
有 查询 字符 串 。 
使 用 浏览 器 预览 该 页 面 的 效果 ， 如 图 4-2 所 示 。 
由 于 没有 对 提交 表单 做 任何 响应 ， 所 以 单 击 表单 中 的 “查询 ”按钮 后 ， 页 面 的 内 容 
没有 什么 改变 。 


H 


gpa : were) 


Ee DI RN GE 


"m Xs E]EumEE Y 居 网 页 快讯 库 了 
@ http://localhost:49157... fo E) o0 my EHE 安全 S)v 


Hg: 所 在 城市 : eae] (x8 | 
北京 | 


重庆 h 


@ Internet | 保护 模式 : 禁用 fa ~ 1006 ~ 


图 4-2 页 面 效果 


与 所 有 的 服务 器 端 进程 一 样 ， 当 ASPX 页 面 被 客户 端 请 求 时 ， 页 面 的 服务 器 端 代码 


134 


被 执行 , 执行 结果 被 送 回 到 浏览 。 这 一 点 i ASP 并 没有 太 大 的 不 同 。 但 是 ASPNET 


的 架构 可 以 为 客户 做 许多 别 "T 比如 它 会 自动 处 理 浏览 器 的 表单 提交 ， 把 各 个 表单 
域 的 输入 值 变 成 对 象 的 属性 ， 使 得 用 户 可 以 像 访问 对 象 必 遇 性 那样 来 访问 客户 的 输入 。 


[L]4.3.2 ASP.NET Web 窗 体 语法 元 素 


ASP.NET Web 窗 体 除 静态 内 容 之 外 ， 还 可 以 使 用 6 个 独特 的 语法 标记 元 素 。 下 面 分 
别 进行 简要 介 
(1) "TEM 代码 呈现 块 由 <%.…%> 元 素 表示 ， 人 允许 自 定 义 控 制 内 容 的 显示 ， 并 
HAE Web 窗 体 页 执行 的 呈现 阶段 执行 。 只 执行 由 <%...%> 元 素 括 起 来 的 代码 ， 并 将 结果 
显示 为 内 容 。 
<%="Hello, World! "%> 与 代码 <% Response.Write("Hello,World! ")%> 的 功能 相同 。 
(2) 代码 声明 。ASPNET 所 有 的 函数 和 全 局 页 变量 都 必须 在 <script runat="server"> 
标记 中 声明 。 例 如 : 


<script language="vb" runat="Server"> 


Sub PageLoad() 


End Sub 
«/script» 

(3) 声明 服务 器 控件 。 声 明 HTML 服务 器 控件 和 Web 服务 器 控件 时 ， 必 须 包 含 
"runat=server" 属 性 ， 例 如 : 
<img ID="Imagel" src="images/4.gif" runat-"server"/» 
<asp:label id="Message" runat="server"/> 

(4) 数据 绑 定 。ASPNET 中 内 置 的 数据 绑 定 文 持 网 页 开发 人 员 以 分 层 方 式 将 控件 
属性 绑 定 到 数据 容器 值 。 数 据 绑 定 的 格式 为 : 《9%#.… 00». LET «90... 多 > 代码 块 中 的 代 
码 只 有 在 其 父 控件 容器 的 DataBind 方法 被 调用 时 才 执 行 ， 例 如 : 
«img src="<%# DataSetl.FieldValue("id", Container) %>" alt-"pic" /> 

C5) 服务 器 端 注 释 。 服 务 器 端 注 释 使 网 页 开发 人 员 能 够 防止 服务 器 代码 和 静态 内 容 
执行 或 呈现 。 格 式 如 下 : 
<$-- 注 释 --%> 

C6) 服务 器 端 包含 。 服 务 器 端 包含 使 网 页 开发 人 员 能 够 将 指定 文件 的 原始 内 容 插入 
ASP.NET 网 页 内 的 任意 位 置 ， 格 式 如 下 : 


<--#include File="Location.inc"--> 


[L]4. 3.3 ASP.NET 页 面 指令 


页 面 指令 在 程序 的 设计 过 程 中 十 分 有 用 。 本 三 将 介绍 儿 种 常用 的 页 面 指 令 ， 这 些 指 
是 通过 诸如 HTML 这 样 的 标记 语言 来 实现 的 。 然 而 ， 它 们 都 使 用 @ 符 号 ， 因 此 并 非 真 
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正 意义 上 的 HTML, 而 是 页 面 级 的 伪 指 令 。 这些 标记 通常 位 于 ASPNET 页 面 的 顶部 ， 实 


际 上 它们 可 以 位 于 页 面 上 的 任何 地 方 。 
(1) @Assembly 指令 。 这 条 指令 标识 连接 到 页 面 的 其 他 部 件 。 它 在 编译 期 间 将 间 


件 连接 到 当前 的 页 面 , JF ALA 


«$8 Assembly Name="AssemblyName" %> 


«$8 Assembly Src-"AssemblySourceCodeFile.vb" %> 
其 中 ，Name 参数 是 一 个 表示 连接 到 页 面 的 部 件 名 称 的 字符 串 。 需 要 注意 的 是 ， 这 


个 名 称 不 包含 文件 路 径 或 者 扩 


和 链接 文件 。 


EA Sre 参数 指定 到 源 文件 的 路 径 ， 以 便 再 次 动态 编译 


E 页 面 上 可 以 使 用 部 件 的 所 有 类 和 接口 。 它 的 语法 形式 如 下 : 


需要 提请 注意 的 是 ， 上 述 两 个 参数 在 同一 条 @Assembly 指令 中 不 能 同时 出 现 。 


(2) @Control 指令 。 该 指令 定义 在 页 面 上 包含 和 编译 


«$8 Control Language-"vb" EnableViewS 


令 不 仅 包含 另 一 个 文件 提供 的 功能 ， 
于 该 
令 的 功能 一 样 强大 。 其 语法 形式 如 下 : 


该 指令 可 以 使 用 用 户 控件 文件 , 所 以 @Control 指令 的 功能 只 


7 


tate-"true" $» 


户 控 件 所 用 的 属性 。 该 指 
而 且 可 以 编写 代码 处 理 控 件 中 声明 的 任何 属性 。 上 
L 乎 和 稍 后 介绍 的 @Page F 


prix 


HP, Language 指定 在 编译 所 有 内 联 视 图 时 所 用 的 代码 语言 ， 其 有 效 值 包括 .NET 


支持 的 任何 语言 hEnableViewState 说 明 是 否 在 多 个 页 面 


指令 还 包含 如 下 几 个 常用 的 参数 ; 
AutoEventWireup: 该 参数 指出 是 否 自动 执行 页 面 的 


m 


青 求 期 间 保存 视图 状态 。@Control 


事件 。 


ClassName: 该 参数 指定 在 请 求 页 面 时 为 页 面 自动 编 1 
CompilerOptions: 为 页 面 提供 编译 选项 。 


Debug: 该 参数 表示 是 否 使 用 调试 符号 来 编译 页 面 。 


值 。 


@ Inherits: 定义 当前 页 


€ Sro: 指定 在 请 求 页 
(3) @Implements 指令 。 


[i 


时 动态 编译 的 源 代 码 类 的 文 从 


这 条 指令 说 明 汉 前 页 面 将 实现 其 


它 的 语法 形式 如 下 : 


«$80 Import NameSpace-"UserDefinedNameSpace" %> 


«$8 Import NameSpace-"System.NET" %> 
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其 中 NameSpace 参数 


名 空间 ，ASPNET 页 面 中 可 以 使 用 多 条 @Import 指令 。 


名 


Description: 该 参数 为 页 面 提 供 文本 说 明 。ASPNET 解析 程序 将 忽略 该 参数 的 


四 将 继承 的 页 面 ， 其 值 可 以 是 从 Page 类 派生 的 任何 类 。 


体 的 .NET 框架 接口 ， 一 


旦 实现 了 这 个 接口 , 页 面 就 可 以 在 <Script> 与 </Script> 标 记 之 间 访 问 所 实现 接口 的 接口 元 
素 。 该 指令 的 语法 形式 如 下 : 

«$80 Implements Interface-"System.Web.IPostBackEventHandler" %> 

FEP Interface 参数 指明 在 页 面 上 实现 的 接口 。 


(4) @Import 指令 。 这 条 指令 从 .NET 类 库 或 用 户 自 定义 的 命名 空间 导入 命名 空间 。 


于 指定 命名 空间 的 名 称 。 一 条 @Import 指令 可 以 导入 一 个 命 


此 外 ， 
System 、 System.Collections 、 
System.IO 
System.Web.Caching. System.Web.Security, System.Web.SessionState. System.Web.UI, 
System.Web.ULHtmlControls 和 System.Web.UI.WebControls 。 

(5) OutputCache 指令 。 这 条 指令 指定 ASP.NET 在 特定 时 间 内 的 缓存 页 面 结果 。 如 


页 面 和 输出 缓存 ; 


下 列 命名 空间 无 需 使 ) 


、 System.Text 、 


System.Text.RegularExpressions 


果 要 输出 缓存 ASPNET 页 面 或 者 


] 户 控件 ， 则 需要 使 


内 存 中 静态 提供 页 面 ， 而 不 必 再 执行 ASPNET 页 面 ， 从 


各 指定 页 面 的 完整 内 容 存储 在 缓存 中 ， 


能 。 该 指令 的 语法 形式 如 下 : 


«$8 OutputCache Duration="6" VaryParam-"none" %> 


tH, Duration 参数 指定 了 页 面 或 页 面 元 素 保存 厂 


J@Import 指令 ， 即 可 自动 导入 到 ASPNET 页 面 中 : 


System.Collections.Specialized 、 


System.Configuration 、 


、 System.Web 、 


这 个 控件 。 


当 再 次 请 求 该 页 面 时 ， 直 接 从 


而 可 以 保存 工作 ,并 大 大 提高 性 


E 缓 存 中 的 时 间 ， 单 位 为 秒 。 


VaryParam 参数 允许 根据 HTTP GET 或 者 发 送 给 服务 器 的 POST 数据 来 缓存 页 面 的 不 同 


形式 。 


(60 GPage 指令 。 
用 这 些 属性 来 编 


语法 形式 如 下 : 


译 ASPNET 页 面 


这 条 指令 定义 


页 面 属 性 。ASPNET 页 面 分 析 程 序 和 编译 程序 使 


。 要 注意 的 是 ,这 条 指令 只 能 在 ASPX 文件 中 使 用 , 其 


«$8 Page Buffer-"true" Language-"vb" %> 
其 中 Buffer 参数 指定 是 否 启用 HTTP 响应 缓冲 .Language 指定 在 编译 所 有 内 联 视图 


时 所 用 的 代码 语言 ， 其 
@Page 指令 的 参数 远 不 | 


外 还 有 如 下 几 个 : 
€ ContentType: iX 


€ ErrorPage: “4th 


URL. 


(7) GReference JE. ij 
面 源 文件 ， 并 链接 到 当前 页 面 上 ， 然 
页 面 或 者 服务 器 控件 的 Control 属性 就 


Explicit: 指定 是 


EnableViewStateMac: ff 


效 值 包括 .NET 文 持 的 任何 语言 。 
上 以 上 两 个 ， 常 | 


数 作为 标准 MIME 类 型 ， 定 义 页 面 


无 法 处 理 的 页 面 异 常 时， 页 面 寻 


EnableSessionState: 指定 页 面 访问 会 话 状 态 的 方式 。 


和 定 是 否 用 MAC 检查 页 面 的 视图 状态 。 
用 VB Option Explicit 模式 编译 页 面 ， 晶 
WarningLevel: 指定 编译 器 在 什么 警告 级 别 上 放弃 编译 页 


H] o 


的 参数 可 以 参见 @Control 的 参数 说 明 ， 此 


响应 的 HTTP 内 容 类 型 。 
定向 到 该 参数 定义 的 目标 


RUMEN false. 
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«$8 Reference Control-"control.ascx" %> 


JE Control 参数 指定 
(8) @Register 指令 。 


iE, AH 


j 户 控件 。 


户 控件 或 者 页 


后 将 其 添加 到 ControlCollection 对 象 上 。 随 后 通过 
it 可 以 访问 元 素 。 其 语法 形式 如 下 : 


该 指令 以 声明 方式 将 自 定义 的 ASPNET 服务 器 控件 添加 到 页 
定义 控件 和 用 户 控 件 定义 了 别名 、 标 记 和 其 他 的 参数 ， 以 减少 自 定义 服务 器 


控件 语法 中 的 文档 说 明 。 其 语法 形式 如 下 : 
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«$8 Register 


TagPrefix-"MyTagPrefix" 

TagName-"MyTagName" 

Src-"MyPage.ascx" %> 
«MyTagPrefix:MyTagName id-"ID" runat-"server"/» 

其 中 TagPrefix 参数 指定 了 与 命名 空间 相关 的 别名 。TagName 参数 表示 与 类 相关 的 
别名 。Src 参数 表示 与 TagPrefix: TagName 相关 的 用 户 控 件 , 或 者 用 户 自 定 义 控件 的 相对 
或 者 绝对 位 置 。 


4.4 常用 的 ASP.NET 控件 


本 节 介 绍 制作 动态 网 页 时 ， 常 用 到 的 一 些 ASPNET 控件 。 


Se 


[Ll4.4.1 标准 控件 


ASP.NET 常用 的 标准 控件 包括 文本 、 图 片 、 按 钮 等 控件 ， 下 面 分 别 简单 介绍 它们 的 
使 用 方法 。 
(1) Label. Label 控件 在 页 面 的 设 定位 置 显 示 文 本 。 与 静态 文本 不 同 , Label 的 Text 
属性 可 以 编程 方式 设置 。 其 语法 形式 如 下 : 
<asp:Label id='" 对 象 名 称 " runat="server" Text=" 要 显示 的 文本 " /> 
例如 : 
«asp:Label id-"Labell" runat="server" Text-"Label Controls"/» 
(2) TextBox。 该 控件 使 用 户 可 以 输入 文本 。 其 语法 形式 如 下 : 
«asp:TextBox 
id=" 对 象 名 称 " 
nanat exesewere 
TextMode=" 文 本 显示 方式 " 
Text=" 要 显示 的 文本 " 
MaxLength=" 可 输入 字符 串 的 最 大 长 度 " 
Rows=" 可 显示 的 行 数 " 
Columns=" 可 显示 的 列 数 " 
Wrap=" 是 否 自动 换行 " 
AutoPostBack=" 是 否 自动 回 发 " 
OnTextChanged=" 处 理事 件 的 程序 名 称 " 
es 
TextBox 的 TextMode 属性 有 3 种 设置 值 , 分 别 表示 不 同 的 外 观 和 作用 。 默 认 情 况 下 ， 
TextMode 为 SingleLine, 表示 单行 文本 框 。 用户 可 通过 将 TextMode 属性 设置 为 Password 


或 者 MultiLine 来 修改 textbox 的 行为 ， 分 别 表 示 输 入 密码 和 多 行文 本 框 。 


MaxLength 属性 可 用 


是 ,如 果 将 MaxLength 


JP Æ TextBox Web 控件 中 输入 的 字符 数 。 需 要 注意 的 
BEREN 0, 表示 对 用 


可 输入 的 字符 数 没 有 限制 ， 


而 不 是 不 能 输入 字符 。 此 外 MaxLength 属性 只 
Columns 属性 决定 TextBox 的 显示 宽度 ， 当 
HERRERAS. UT 


于 单行 文本 框 和 密码 文本 框 。 
TextMode 为 MultiLine 时 ，Rows 属性 
户 可 在 文本 框 中 输入 的 文本 量 没有 限制 。 在 多 行文 


AutoPostBack 属性 与 OnTextChanged 事件 配合 使 用 
容 ， 并 按 下 Enter 或 Tab 键 时 ， 是 否 自动 将 改变 后 的 
E 页 面 上 显示 由 ImageUrl 


(3) Image. iZfzffü 
«asp:Image id=" 对 象 名 称 " runat="server" ImageUrl=" 


AlternateText=" 图 片 不 显示 时 显示 的 替代 文字 " 


本 框 中 ， 行 数 和 列 数 只 影响 文本 框 的 外 观 。 如 
入 的 文本 量 ， 将 出 现 垂 直 滚 动 条 。 


多 行文 本 框 的 可 视 空间 容纳 不 下 用 户 输 


ImageAlign=" 图 片 与 周围 文字 的 对 齐 方式 "/> 

(4) Button, ImageButton 和 LinkButton. Button 控件 的 作用 是 提供 命令 按钮 ，| 
回 传 给 服务 器 。 其 语法 玫 
«asp:Button id=" 对 和 象 名 称 "” runat="server" Text=" 按 钮 上 上 和 


于 将 Web 窗 体 页 面 


事件 的 程序 名 称 "/> 


此 外 该 控件 只 有 放 在 <Form> 和 </Form> 标 记 之 间 才 
ImageButton 和 LinkButton 在 功能 上 与 Button 控件 基本 相同 ， 不 同 之 处 在 于 
ImageButton 是 图 形 形 式 的 按钮 ，LinkButton 是 使 ) 
语法 形式 与 Button 相同 ， 在 此 不 再 袭 述 。 下 面 简 要 介 
<asp:ImageButton id=" 对 象 名 称 " 
onClick=" 处 理 Click 事件 
与 Button 和 LinkButt 
y 坐标 ， 也 就 是 说 ， 单 击 民 
意 的 是 ， 在 编写 ImageButton 的 Click 事件 程序 时 
ImageClickEventArgs, WZ H 
(5) RadioButton 和 RadioButtonList. RadioButton 应 J 
将 某 个 组 中 的 单 选 按钮 与 页 面 中 的 其 他 内 容 交 错 。 因 此 可 以 通过 将 具有 相同 意义 的 选项 
k 享 相同 的 GroupName， 在 逻辑 上 将 它们 组 成 一 个 组 。 其 语法 形式 如 下 : 


<asp:RadioButton 
id=" 对 象 名 称 " 


runat-"server" 


Checked-" Jé fi BA Xe rp n 
Text=" 选 项 名 称 " 
TextAlign=" 文 字 对 齐 方式 " 
GroupName=" 组 名 " 


在 使 用 Button 控件 时 ， 只 有 指定 了 OnClick 的 事件 处 到 


] 于 设置 当 用 户 改 变 控件 的 内 
容 送 回 服务 器 。 

时 性 指定 的 图 片 。 其 语法 形式 如 下 : 
片 所 在 的 位 置 " 


的 文本 " onClick=" 处 理 Click 


程序 ， 才 能 使 用 Click 事件 。 


o 


runat-"server" 


超级 链接 形式 的 按钮 。LinkButton 的 
一 下 ImageButton 的 语法 形式 : 
ImageUrl-" 图 像 按钮 的 位 置 " 


像 不 同 的 位 置 可 以 有 


on 相 比 ，ImageButton 的 单 击 事件 还 提供 了 单 击 图 像 位 置 的 x、 
向 应 方式 。 还 有 一 点 值得 读者 注 
须 将 变量 e 的 类 型 改 为 


于 多 选 一 的 情况 ， 允 许 用 户 


Hk p 
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AutoPostBack=" 是 否 自动 回 发 " 
OnCheckedchanged=" 事 件 处 理 程序 的 名 称 " 
/> 

RadioButtonList 控件 的 语法 形式 如 下 : 
<asp:RadioButtonList 

id=" 对 象 名 称 " 


runat-"server" 


RepeatCcolumns=" 字 段 数量 " 
RepeatDirection=" 控 件 排列 方式 " 
RepeatLayout=" 是 否 以 表格 方式 呈现 控件 的 排列 " 
TextAlign=" 文 字 对 齐 方式 " 
AutoPostBack=" 是 否 自动 回 发 " 
OnSelectedchanged=" 事 件 处 理 程序 的 名 称 " 


> 

<asp:ListItem 
Text=" 选 项 名 称 " 
Value=" 选 项 值 " 
Selected=" 是 否 选 中 " 


I 
</asp:RadioButtonList> 
在 实际 运用 中 ， 如 果 要 取得 RadioButtonList 的 值 ， 只 需 使 
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] SelectedItem.Text 或 者 


SelectedItem. Value 即 可 获取 被 选取 项 的 Text 或 Value ffi. Text 属性 与 Value 属性 的 不 同 
， 当 显示 在 网 页 上 的 内 容 与 实际 


之 处 在 于 ，Text 能 显示 在 网 页 中 ， 而 Value 不 能 。 另 儿 
要 运算 的 内 容 不 同时 ， 可 以 通过 Value 属性 加 以 设置 。 
(6) CheckBox 和 CheckBoxList。CheckBox 控件 


其 语法 形式 如 下 : 

<asp:CheckBox 
id=" 对 象 名 称 " 
runat="server" 
Checkedq=" 是 否 默认 选中 " 
Text=" 选 项 名 称 " 
TextAlign=" 文 字 对 齐 方式 " 
AutoPostBack=" 是 否 自动 回 发 " 


OnCheckedIndexCchanged=" 事 件 处 理 程序 的 名 称 " 


/> 


于 在 一 组 选项 ! 


选择 多 个 选项 ， 


CheckBoxList 控件 与 CheckBox 类 似 ， 不 同 之 处 在 于 ， 每 一 个 CheckBox 都 是 一 个 


独立 的 控件 , 因此 必须 逐一 判断 是 否 被 选中 ; 而 CheckBoxList } 
各 个 选项 由 ListItem 产生 。 其 语法 形式 如 下 : 


组 的 方式 管理 各 个 选项 ， 


«asp:CheckBoxList 
id=" 对 象 名 称 " 


runat="server" 


RepeatCcolumns=" 字 段 数量 " 

RepeatDirection=" 探 件 排列 方式 " 
RepeatLayout=" 是 否 以 表格 方式 呈现 控件 的 排列 " 

TextAlign=" 文 字 对 齐 方式 " 

AutoPostBack=" 是 否 自动 回 发 " 

OnSelectedIndexCchanged=" 事 件 处 理 程序 的 名 称 " 


> 
<asp:ListItem 
Text=" 选 项 名 称 " 
I 
</asp:CheckBoxList> 
如 果 要 取得 CheckBoxList 的 值 ， 可 以 使 用 for 循环 ， 例 如 : 


for i-0 to CheckBoxListl.Items.Count-1 


If CheckBoxListl.Items(i).Selected Then 


其 中 ，CheckBoxListl 是 CheckBoxList 的 一 个 对 象 的 名 称 。 

(7) HyperLink。 该 控件 用 于 从 客户 端 定位 到 另 一 页 面 ， 相 当 于 HTML 中 的 超 链 接 
标记 <a>， 但 与 <a> 标 记 不 同 的 是 ， 使 用 HyperLink 控件 可 以 轻松 地 实现 图 片 超级 链接 ， 
不 必 分 别 编写 <a> 和 <Img> 标 记 。 其 语法 形式 如 下 : 
<asp:HyperLink 

id=" 对 象 名 称 " 

runat="server" 

Text=" 超 链接 的 文字 " 

NavigateUrl=" 要 链接 的 网 址 " 

Target=" 目 标 窗口" 

ImageUr1L=" 图 片 位 置 " 

/> 

如 果 设 置 了 ImageUrl 属性 和 Text 的 值 ， 则 将 光标 移 到 图 片上 时 ， 显 示 Text 定义 的 
文本 。 


(8) ListBox. ListBox 控件 提供 单 选 或 多 重 选择 列表 ， 该 控件 与 DropDownList 控 
件 的 功能 基本 相同 ,不 同 的 是 DropDownList 控件 一 次 只 能 显示 一 个 选项 ， 而 ListBox 一 


次 可 以 显示 多 个 选项 ， 也 允许 用 户 选择 多 个 选项 。ListBox 的 语法 形式 如 下 : 
«asp: ListBox 
id=" 对 象 名 称 " 


runat-"server" 


pB 
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Rows=" 可 显示 的 行 数 " 


SelectionMode=" 设 置 多 选 或 单 选 " 
AutoPostBack=" 是 否 自动 回 发 " 
OnSelectedIndexChanged=" 事 件 处 理 程序 的 名 称 " 


> 


<asp:ListItem 
Text=" 选 项 名 称 " 

Value=" 选 项 值 " 
Selected=" 是 否 选中 " 


/> 


</asp: ListBox> 
如 果 希 望 可 以 选择 多 项 ,请 将 SelectionMode 属性 设置 为 Multiple。 其 他 属性 的 说 明 
与 RadioButtonList 相同 ， 在 此 不 再 一 一 和 叙述。 
(9) Calendar. Calendar 控件 显示 一 个 日 历 ， 用 户 可 以 从 中 选择 、 碍 看 日 期 。 该 控 
件 的 属性 非常 丰富 ， 利 用 这 些 属 性 可 以 呈现 形式 多 变 的 日 历 。 下 面 简要 介绍 其 常用 的 几 


DayNameFormat: 设置 星期 的 显示 格式 。 

FirstDayOfWeek: 设置 一 周 开始 是 星期 几 。 
NextMonthText、PrevMonthText: 下 一 个 月 〈 上 一 个 月 ) 的 链接 文字 。 
SelectionMode: 设置 选择 日 期 的 方式 ， 可 以 是 一 天 、 一 周 或 一 月 。 
SelectWeekText、SelectMonthText: 设置 选择 整 周 、 整 月 的 命令 文本 。 
ShowGridLines: 确定 是 否 显 示 网 格 线 。 

ShowNextPrevMonth: 是 否 显 示 下 一 个 月 、 上 一 个 月 的 链接 。 
TitleFormat: 设置 标题 栏 所 要 显示 的 日 期 格式 。 


Calendar 控件 的 一 部 分 属性 还 可 以 利用 Style 对 象 改 变 控 件 的 外 观 ， 常 用 的 属性 如 


个 属性 : 
e 
e 
e 
e 
e 
e 
e 
e 

F: 
e 
e 
e 
e 
e 
9 


DayStyle: 当前 月 每 天 的 风格 。 

OtherMonthDayStyle: 除了 当前 日 期 的 其 他 日 期 的 风格 。 
SelectedDayStyle: 被 选中 日 期 的 风格 。 

TodayDayStyle: 当天 日 期 的 风格 。 

NextPrevStyle: 设置 月 份 导 航标 志 的 风格 。 
WeekendDayStyle: 周末 的 风格 。 


例如 ， 下 面 的 代码 呈现 的 日 历 标题 为 灰色 ， 显 示 完整 的 星期 名 称 ， 当 前 日 期 显示 为 


红 底 绿 字 ， 可 以 选择 整 周 和 整 月 


<asp:Calendar Id="MyCalendar" runat="server" 


DayNameFormat-"Full" 


TitleStyle-Backcolor="#CCCCCC" 


TitleStyle-ForeColor-"White" 


TodayDayStyle-BackColor-"4FFCC99" 


TodayDayStyle-ForeColor-"4009900" 
ShowGridLines-"true" 
TitleFormat-"Month" 
NextPrevFormat-"CustomText" 
NextMonthText-" FH" 
PrevMonthText-" EH" 
SelectionMode-"DayWeekMonth" 
SelectWeekText=" 选 择 整 周 " 

i> 


(10) AdRotator. AdRotator 控件 是 ASP.NET PERRI — 8) dete, Fc 
多 个 广告 图 像 ， 单 击 这 些 图 像 将 会 定位 到 一 个 新 的 位 置 。 每 次 加 载 该 页 面 到 浏览 器 时 ， 
都 会 从 预定 义 列 表 中 随机 选择 一 个 广告 图 像 显示 。 其 语法 形式 如 下 : 
«asp:AdRotator id = "对 象 名 称 " 
AdvertisementFile=" 广 告 文件 名 称 " 
KeywordFilter=" 过 滤 广 告 文件 的 关键 字 " 


7 


OnAdCreated = "事件 处 理 程序 名 称 " 


runat-"server"/» 


HH, AdvertisementFile 属性 用 于 指定 广告 文件 的 路 径 。 广 告 文件 是 一 个 定义 广告 
画面 和 链接 地 址 等 内 容 的 XML 文件 。 其 格式 如 下 : 


<?xml version-"1.0" encoding="gb2312"?> 


«Advertisements» 

«Ad» 
<ImageUr1>URL1</ImageUr1> 
<AlternateText>#{t(X  1</AlternateText> 
«NavigateUrl»Nurll«/NavigateUrl» 
«Impressions»Jlf 1</Impressions> 

</Ad> 
<Ad> 
<ImageUr1>URL2</ImageUr1> 
<AlternateText > {t(X 2«/AlternateText» 
«NavigateUrl»Nurl2«/NavigateUrl» 
«Impressions»JIl/ 2</Impressions> 

</Ad> 
<Ad> 
<ImageUr1>URL3</ImageUr1> 
<AlternateText># {tf 3</AlternateText> 
«NavigateUrl»Nurl2«/NavigateUrl» 
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<Impressions> 加 权 3</Impressions> 


</Advertisements> 


其 中 ，ImageUrl 指定 广告 图 片 的 位 置 ， NavigateUrl 指定 广告 图 片 的 链接 地 址 ; 


AlternateText 指定 图 


片 未 载 入 时 显示 的 替代 文字 ; Impressions 指定 广告 图 片 出 现 的 概率 。 


对 于 Impressions 属性 的 取 值 ， 举 例 来 说 ， 某 一 广告 滚动 板 含 有 4 则 广告 ， 每 一 则 广 
告 的 加 权 都 等 于 1， 那么 每 一 则 广告 的 出 现 机 率 就 等 于 25%。 但 如 果 第 一 则 广告 的 加 权 
等 于 3， 而 其 他 三 则 广告 的 加 权 都 等 于 1， 则 第 一 则 广告 的 出 现 机 率 将 为 50%。 读 者 需 
要 注意 的 是 :“ 出 现 机 率 ” 并 非 实际 出 现 次 数 。 例 如 ， 上 述 广告 的 出 现 机 率 为 25%， 是 
指 进 入 网 页 无 限 多 次 之 后 , 平均 4 次 会 出 现 1 次 , 而 并 不 是 说 每 4 次 就 一 定 会 出 现 1 次 。 


[4. 4. 2 数据 验证 控件 


过 去 在 开发 ASP Web JN] 
很 高 ， 但 是 非常 繁琐 。 在 ASPNET 中 ， 这 种 现象 不 再 存在 ， 因 为 有 了 数据 验证 控件 。 
验证 服务 器 控件 是 一 个 控件 集合 ， 
在 验证 失败 时 显示 自 定义 消息 ， 每 个 验证 控件 执行 特定 类 型 的 验证 。 由 
在 验证 控件 中 显示 错误 信息 ， 可 通过 将 验证 控件 放置 在 所 需 位 置 来 控制 在 Web 页 中 显 


TextBox)， 并 


T 


] 户 输入 的 信息 是 否 有 效 虽 然 技 术 难 度 不 是 


J 程序 时 , 验证 | 


这 些 控件 允许 验证 关联 的 输入 服务 器 控件 “例如 
于 


示 消 息 的 位 置 ， 还 可 以 显示 页 上 所 有 验证 控件 的 结果 和 


数据 验 订 


FE 控 件 共 有 


Bt. 


Compare Validator: 


行 比较 。 


击 按钮 控件 时 ， 即 执行 页 验 i 


RangeValidator: 确 
RegularExpressionValidator: fff 
CustomValidator: 


ValidationSummary: 
其 中 ， 常 ) 


| 的 为 前 5 F 


以 下 6 种 : 
RequiredFieldValidator: ff 


HE 
E 


和 保 用 户 在 Web 窗 体 页 上 输入 数据 时 不 会 跳 过 必 填 字 


KJ 


JP IA SBE. 08 7 BTE RI] 


属性 值 或 数据 库 值 进 


] 户 输入 的 值 在 指定 的 上 下 限 范围 之 内 。 

采用 户 输入 信息 匹配 正则 表达 式 定义 的 模式 。 
确保 用 户 输入 的 内 容 符合 您 自己 创建 的 验证 逻辑 。 
提供 一 个 集中 显示 验证 错误 信息 的 地 方 。 

中 控件 ， 最 后 一 个 主要 用 于 集中 显示 信息 。 默 认 情 况 下 ， 当 单 


保 ) 


正 。 将 按钮 控件 的 CausesValidation 属性 设置 为 false 可 以 


阻止 在 单 击 按钮 控件 时 执行 验证 。“ 取 消 ” 或 “清除 ”按钮 的 该 属性 通常 设置 为 false, 


以 防止 在 单 击 按钮 时 执行 验证 


此 外 , Ab 


ate 


多 初学 者 在 使 | 
默认 值 ， 这 不 是 一 个 好 习惯 ， 不 便于 代码 的 维护 。 建 议 初 学 者 一 定 要 为 每 个 控件 指定 具 
备 一 定 实际 意义 的 ID 


验证 控件 时 不 为 验证 控件 设置 ID 属性 ， 而 使 其 ID 属性 为 


o 


FB SEY AN 


须 输入 姓名 和 密码 信息 ， 密 码 必须 输入 两 次 
选择 性 地 输入 


FE 控件 的 用 法 。 该 实例 模拟 一 个 用 户 注册 的 功能 ， 要 求 用 户 必 


两 次 输入 的 密码 必须 匹配 。 男 外 用 户 可 以 


EAE. WRH 


8 箱 信 息 ， 则 验证 控件 检查 邮箱 是 否 合法 ， 如 果 不 


日 户 输入 了 


输入 ， 则 不 进行 检查 。 若 输入 完整 、 


示 以 外 ， 还 需要 汇总 显示 错误 。 假 定 密码 为 111111 。 
本 例 的 操作 步骤 如 下 : 
(1) 启动 Dreamweaver， 新 建 一 个 名 为 DataValidator.aspx 的 ASPNET VB 网 页 。 


(2) 在 页 面 中 扣 


入 一 个 表单 ， 然 后 单 击 “ 常 
HL, 在 弹出 的 “标签 选择 器 ”对 话 框 左 侧 单 击 “ASPNET 标签 ” 


66 Yr 


正确 时 ， 转 向 另 一 网 页 ， 若 输入 错误 时 ， 除 分 别 显 


] ”插入 面板 上 的 “标签 选择 器 ” 按 
/ “Web 服务 器 控件 ” 


在 页 面 上 插入 6 个 Label 控件 ，4 个 TextBox 控件 和 1 个 按钮 控件 ， 并 按照 表 4-11 设置 
控件 属性 。 
表 4-11 控件 属性 
控件 类 型 ID 属性 Text 属性 其 他 属性 

Label lblHead 请 输入 您 的 个 人 信息 前 景色 : #0000FF; 字号: 30 

Label lblName TE: 

TextBox txtName 空 

Label lblPsw 密码 : 

TextBox txtPsw 28 文本 模式 ， 密码 

Label lblPswCheck 确认 密码 : 

TextBox txtPswCheck 经 文本 模式 : 密码 

Label IbIMail EM 第 

TextBox txtMail T > 

Button btnOK 提交 T 

Label IbIResult ae b 

(3) 单 击 因 图 标 打开 “标签 选择 器 ”对 话 框 ， 在 左 侧 单 击 “ASPNET 标签 ”/“ 验 Z 

证 服务 器 控件 ” 然后 选择 添加 三 个 RequiredFieldValidator 控件 、 两 个 Compare Validator z 
控件 和 一 个 RegularExpressionValidator 控件 ， 将 其 前 景色 均 设 置 为 红色 ， 属 性 设置 见 表 js 
4-12。 并 按 图 4-3 调整 控件 位 置 。 o 

由 于 用 户 姓 名 和 密码 必须 填写 ， 所 以 分 别 为 txtName 和 txtPsw 控件 添加 了 " 


RequiredFieldValidator 控件 ， 以 避免 ) 


] 户 不 填写 数据 而 直接 提交 。 同 时 ， 为 了 保证 


次 


输入 的 密码 匹配 ， 还 为 txtPswCheck 控件 添加 了 CompareValidator 控件 ， 并 指定 该 
CompareValidator 控件 的 “要 验证 的 控件 ”为 xtPsw， 表 示 txtPswCheck 的 数据 必须 和 


txtPsw 中 输入 的 数据 相同 。 为 了 保证 用 户 输 入 的 邮箱 地 址 合法 ， 使 用 ] 
RegularExpression Validator. 
表 4-12 验证 控件 属性 

控件 类 型 ID 属性 文本 要 验证 的 控件 错误 信息 
RequiredFieldValidator rForName # 必 盾 项 txtName 姓名 必须 填写 
RequiredFieldValidator rForPsw TAT txtPsw 密码 必须 填写 
Compare Validator cForPsw txtPsw 密码 不 正确 
RequiredFieldValidator rForRPsw DECIR txtPswCheck 确认 密码 必须 填写 
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CompareValidator cForPsw txtPsw 两 次 密码 不 匹配 
HIT Ax Y arj 

RegularExpression Validator | rForMail txtMail UAE S E 

Tl G:\mybook\source\ch3\DataValidator.aspx (KHTML) -0x 

: grr eetite| LIN IPS) ME E 

ke: [ASP: TEXTBOX] * 必 填 项 : 

EB: [ASP : TEXTBOX] *# 必 填 项 密码 不 正确 

Buen: [ASP: TEXTBOX] IRIS 两 次 密码 不 匹配 

E-Mail: [ASP: TEXTBOX] 邮箱 格式 错误 

[ix 

TASP:LABEL] 

ASP: ALIDATIORSUBUARYI uda iuda i oi ie 

<body> aa Q 100 ë ~| m (Nj L] 443 x 26 

图 4-3 调整 控件 位 置 


另外 设置 cForPsw 控件 的 “要 比较 的 值 ” 为 111111， 操 作为 “等 于 ”设置 rForMail 
的 验证 表达 式 为 :“[a-zA-Z0-9]+@[.a-z0-9]+”。 
(4) 选择 “提交 ”按钮 ， 单 击 右键 ， 选 择 “ 编 辑 标签 ”命令 ， 在 弹出 的 对 话 框 中 
单 击 “OnClick” 事 件 ， 在 右 侧 的 文本 框 中 输入 “btnOK_Click”， 然 后 单 击 “ 确 定 ” 按 钮 。 
(5) 切换 到 代码 视图 ， 在 HTML 头 部 注册 按钮 单 击 事件 ， 编 写 如 下 代码 ; 
«script runat-"server"» 
Private Sub  btnOK Click(ByVal sender As  System.Object,ByVal e As 
System.EventArgs) Handles btnOK.Click 
If Page.IsValid Then 
Me.lblResult.Text += Me.txtName.Text + "<br>" 
Me.lblResult.Text += Me.txtPsw.Text + "<br>" 
Me.lblResult.Text += Me.txtMail.Text 
End If 
End Sub 
«/script» 
每 个 页 面 都 有 Page.IsValid 属性 ， 没 有 输入 数据 时 ，Page.IsValid 为 false， 有 数据 输 
入 时 为 true。 因 此 在 按钮 单 击 事件 中 首先 要 判断 验证 控件 是 否 通 过 了 验证 。 
(6) 保存 页 面 ， 按 F12 键 在 浏览 器 中 预览 页 面 效果 ， 如 图 4-4. 
C7) 输入 部 分 信息 后 单 击 “提交 ”按钮 ， 测 试验 证 控件 ， 如 图 4-5 所 示 。 输 入 符合 
规则 的 信息 以 后 再 单 击 “提交 ”按钮 ， 得 到 如 图 4-6 所 示 界 面 。 
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图 4-4  DataValidator.aspx 初始 界面 
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图 4-5 测试 验证 控件 界面 
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图 4-6 信息 


如 果 需 要 限定 输入 值 的 范围 ， 可 以 使 


Ejus um" 


请 输入 您 的 个 人 信息 


EJER wne 


合法 界面 


用 RangeValidator 控件 检查 用 户 输入 的 数字 、 


字母 或 日 期 是 否 在 指定 的 上 限 与 下 限 之 间 。 边 界 表示 为 常数 ， 例 如 ， 下 面 的 代码 使 用 
RangeValidator 控件 验证 在 文本 框 中 输入 的 值 是 否 介 于 1 和 10 之 间 。 


<asp:TextBox id="TextBox1" runat-"server"/» 


<asp:RangeValidator id-"Rangel" 
ControlToValidate="TextBox1" 


MinimumValue="1" 
MaximumValue="10" 

Type=" Integer" 
EnableClientScript="false" 


Text-"The value must be from 1 to 10!" 


runat-"server"/» 
此 外 还 可 以 自 定 义 验 证 逻辑 
是 否 通过 验证 。 该 控件 主要 
件 相关 联 的 客户 端 验证 脚本 函数 的 名 称 。 


-> 


例如 ， 下 面 的 代码 使 用 CustomValidation 控件 在 客户 端 上 验证 在 文本 框 中 输入 的 值 
是 否 为 偶数 : 


使 用 CustomValidator 控件 计算 输入 控件 的 值 以 确定 它 
属性 有 ClientValidationFunction: 1 


站 定 与 CustomValidator 控 


<asp:Label id-lblOutput runat="server" 
Text-"Enter an even number:" 
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Font-Name-"Verdana" 
Font-Size-"10pt" /»«br» 
<p> 


<asp:TextBox id="Text1l" runat="server" /> 

&nbsp; &nbsp; 

«asp:CustomValidator id-"CustomValidatorl" 
ControlToValidate="Text1" 
ClientValidationFunction="ClientValidate" 
OnServerValidate="ServerValidation" 
Display="Static" 

ErrorMessage="Not an even number!" 
ForeColor="green" 
Font-Name-"verdana" 
Font-Size-"10pt" 

runat-"server"/» 


其 相应 的 脚本 如 下 : 


<script runat="server"> 
Private Sub ServerValidation(ByVal source As Object, ByVal arguments As 
ServerValidateEventArgs) 
Dim i As Integer = Integer.Parse(arguments.Value) 
arguments.IsValid = ((i Mod 2) = 0) 
End Sub 


Private Sub ClientValidation(ByVal source As Object, ByVal arguments As 
ClientValidateEventArgs) 
If (arguments.Value mod 2) = 0 Then 
arguments.IsValid-true 
Else 
arguments.IsValid-false 
End If 
End Sub 


前 面 提 到 过 可 以 使 用 ValidationSummary 控件 在 单个 位 置 概述 Web. 页 上 所 有 验证 
控件 的 错误 信息 。 该 控件 的 主要 属性 如 下 : 
€  DisplayMode: 基于 DisplayMode 属性 的 值 ， 该 摘要 可 显示 为 列表 、 项 目 符号 
列表 或 单个 段落 。 
€  ErrorMessage: ValidationSummary 控件 中 为 页 面 上 每 个 验证 控件 显示 的 错误 信 
息 ， 是 由 每 个 验证 控件 的 ErrorMessage 属性 指定 的 。 如 果 没 有 设置 验证 控件 
的 ErrorMessage 属性 ， 则 在 ValidationSummary 控件 中 不 显示 该 验证 控件 错 
误 信息 。 
€  HeaderText: 在 ValidationSummary 控件 的 标题 部 分 指定 一 个 自 定义 标题 。 
€ ShowSummary: 控制 是 否 显 示 ValidationSummary 控件 。 
€  ShowMessageBox: 该 属性 设置 为 true 时 ， 可 以 在 消息 框 中 显示 摘要 。 
继续 采用 本 小 节 的 第 一 个 例子 ， 使 用 ValidationSummary 控件 来 显示 所 有 未 通过 验 
证 的 输入 控件 。 在 代码 中 添加 如 下 代码 : 
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<asp:ValidationSummary id="valSum" 


DisplayMode-"BulletList" 
EnableClientScript-"true" 


HeaderText=" 由 于 下 面 这 些 原 因 您 不 能 成 功 登 录 : " 
runat-"server"/» 


预览 修改 后 的 页 面 ， 并 输入 验证 数据 ， 此 时 的 页 面 效果 如 图 4-7 所 示 : 


©) ARRO- teres! intenet beleeo aaa 
xw) kp guo my IND Emy = 
E > daH pe gza 02 ;m-o« | 
EL] Imm agr» aa” 
“AEA A dati A sz 下 
请 输入 您 的 个 人 信息 
姓名 ATE 
Fil 不 正确 
BUSS. mx fe 
BE- LIES 
az 
由 于 下 ERB 


图 4-7 页 面 效果 


QM. 4.3 数据 控件 


数据 展示 是 一 个 网 站 最 常见 的 任务 之 一 ,在 ASPNET 网 页 中 显示 数据 需要 使 用 两 种 
类 型 的 Web 控件 。 首 先 需 要 使 用 数据 源 控件 来 访问 数据 ， 然 后 使 用 数据 Web 控件 显示 
数据 源 控件 检索 的 数据 。 
(1) 数据 源 控件 。 在 动态 网 页 中 ， 用 户 常 常 需要 从 数据 库 中 检索 数据 ， 并 在 网 页 
中 显示 。ASPNET 提供 了 7 个 名 称 都 以 DataSource 结尾 的 数据 源 控件 ， 位 于 Visual Web 
Developer 工具 箱 的 “数据 ”部 分 ， 这 些 控件 用 于 访问 底层 数据 库 中 的 数据 。 在 后 台数 据 
源 控件 使 用 结构 化 查询 语言 SQL mitis ACIS da > o 
ASPNET 数据 访问 系统 的 核心 是 数据 源 控件 。 一 个 数据 源 控件 代表 一 个 备份 数据 存 
储 《〈 数 据 库 、 对 象 、xml、 消 息 队 列 等 )， 页 面 并 不 显示 数据 源 控件 ， 但 是 它 确实 可 以 为 
任何 数据 绑 定 的 UI 控件 提供 数据 访问 。 为 了 文 持 数 据 源 控件 并 使 用 自动 数据 绑 定 ， 利 
用 一 个 事件 模型 以 便 在 更 改 数据 时 通知 控件 ， 各 种 UI 控件 都 进行 了 重新 设计 。 此 外 ， 
数据 源 还 提供 了 包括 排序 、 分 页 、 更 新 、 删 除 和 插入 在 内 的 功能 ， 执 行 这 些 功 能 无 需 任 
何 附加 代码 。 
ASP.NET 4 附带 以 下 数据 源 控件 : 
€  AccessDataSource: 可 以 通过 指定 文件 名 的 方式 来 方便 地 操作 Microsoft Access 
数据 库 。 如 果 在 应 用 程序 中 使 用 Microsoft Access 数据 库 ， 则 能 够 通过 
System.Web.ULWebControls.AccessDataSource 执行 插入 、 更 新 和 删除 数据 的 操 
作 。 


€ SqlDataSource: 配置 比 AccessDataSource 的 更 为 复杂 ， 用 于 企业 级 应 用 程序 ， 
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这 些 应 用 程序 需要 一 个 真正 的 数据 库 管 理 系 统 (DBMS) 所 拥有 的 功能 。 例 如 


可 以 访问 SQL Server. OLE DB. Oracle 等 数据 库 系 统 。 
€ ObjectDataSource: 用 于 实现 一 个 数据 访问 层 ， 从 而 提供 更 好 的 封装 和 抽象 。 
ObjectDataSource 控件 支持 绑 定 到 一 个 特定 的 数据 层 , 而 非 绑 定 到 一 个 数据 库 ， 
其 绑 定 方式 与 使 用 其 他 控件 绑 定 数据 库 的 方式 相同 。ObjectDataSource 控件 能 
够 绑 定 到 任何 一 个 方法 ， 该 方法 返回 一 个 DataSet 对 象 或 IEnumerable 对 象 。 
€  XmlDataSource: XML 数据 通常 用 于 表示 半 结 构 化 或 层次 化 数据 。 使 用 XML 
文档 作为 数据 源 ， 可 以 从 其 他 资源 接收 XML 文档 ， 并 将 XML 数据 格式 化 ， 
以 便 与 应 用 程序 兼容 。 
要 配置 一 个 System. Web.UI. WebControls.X mlDataSource, 必须 指定 XML 文件 的 路 
ft, WIR XML 需要 传输 数据 ， 则 还 需 指定 XSLT 样式 表 路 径 或 XPath 查询 路 径 〈 可 
Xt). 
€  SiteMapDataSource: 控件 和 ASP.NET 站 点 地 图 协作 ， 提 供 站 点 的 导航 数据 。 
最 经 常 使 用 该 数据 源 的 时 Menu 控件 。 对 于 想 使 用 站 点 地 图 数据 和 使 用 非 导航 
控件 (如 TreeView、DropDowList〉 的 用 户 来 说 ，SiteMapDataSource 也 是 非常 
有 用 的 。 
€ EntityDataSource: 控件 在 使 用 ADO.NET Entity Framework 的 Web 应 用 程序 
中 支持 数据 绑 定 方案 。EntityDataSource 控件 的 编程 图 面 与 SqlDataSource、 
LinqDataSource, XmlDataSource 和 ObjectDataSource 控件 的 编程 图 面 类 似 。 
与 其 他 Web 服务 器 数据 源 控件 一 样 ，EntityDataSource 控件 也 代表 同一 页 上 的 
数据 绑 定 控件 管理 对 数据 源 的 创建 、 读 取 、 更 新 和 删除 操作 ， 可 用 于 可 编辑 的 
网 格 、 具 有 用 户 控 制 的 排序 和 筛选 功能 的 窗 体 、 双 重 绑 定 的 下 拉 列 表 控件 以 及 
主 -详细 信息 页 。 
€ LinqDataSource: 控件 通过 ASPNET 数据 源 控件 结构 向 Web 开发 人 员 公 开 语 
言 集成 查询 (LINQ). LINQ 提供 一 种 用 于 在 不 同类 型 的 数据 源 中 查询 和 更 新 
数据 的 统一 编程 模型 ， 并 将 数据 功能 直接 扩展 到 C# 和 Visual Basic 语言 中 。 
LINQ 通过 将 面向 对 象 编程 的 准则 应 用 于 关系 数据 ， 简 化 了 面向 对 象 编程 与 关 
系数 据 之 间 的 交互 。 
有 关 使 用 数据 源 控件 访问 数据 库 的 方法 将 在 下 一 章 详细 介绍 。 
数据 Web 控件 的 唯一 用 途 是 显示 数据 。 ASP.NET 4 工具 箱 的 “数据 ”部 分 有 6 个 数 
据 Web 控件 ， 它 们 之 间 的 差别 在 于 显示 底层 数据 的 方法 不 同 。 
(2) GridView 控件 。 用 于 显示 特定 查询 返回 的 全 部 记录 。 列 代表 一 个 字段 ， 
每 一 行 代表 一 个 记录 。GridView 控件 支持 以 下 功能 : 
e 绑 定 到 数据 源 控件 ， 例 如 SqlDataSource。 
e 内 置 排序 功能 。 
@ 内置 更 新 和 删除 功能 。 
@ 
@ 


SUE 
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内 置 页 面 功能 。 


内 置 行 选择 功能 。 


可 以 编程 访问 GridView RRM, ze ELE, WES 


支持 多 个 关键 字段。 


支持 | 


可 以 通过 主题 和 风格 调整 外 观 。 


1) 添加 数据 源 控件 到 网 页 中 ， 
2) 添加 GridView 控件 到 网 页 中 ， 并 将 其 配置 为 上 一 步 添加 的 数据 源 控件 。 


除 显 示 数 据 源 控件 检索 的 每 条 记录 夕 
GridView 控件 的 每 一 列 计 
六， 属性 AutoGenerateColumns 值 
AutoGenerateField 字段 。 也 可 以 将 AutoGenerateColumns 值 设 为 false 以 自 定 义 列 字 段 的 


S| 


示 字段 的 名 称 。 


多 个 数据 字段 创建 超级 链接 列 。 


"un 
类 型 


o He 4-13 显示 可 } 


的 字段 类 型 。 


ZI 


在 ASP.NET 网 页 中 添加 GridView 控件 , 并 将 其 与 数据 源 控 件 相 关联 需要 两 个 步骤 : 
并 将 其 配置 为 检索 要 显示 的 数据 。 


, GridView 控件 还 默认 显示 标题 行 ， 列 出 所 显 
个 DataControlField 对 象 来 表示 。 默 认 情 况 
为 true, 


为 每 一 个 数据 源 ， 


表 4-13 可 用 字段 类 型 


的 对 象 生成 一 个 


列 字段 类 型 描 述 

BoundField 显示 数据 源 中 字段 的 值 。 默 认 列 类 型 

ButtonField 为 GridView 控件 中 的 每 一 项 显示 命令 按钮 。 人 允许 创 建 一 列 用 户 按钮 控件 ， 例 如 
添加 和 移 除 按钮 

CheckBoxField 为 GridView 控件 中 的 每 一 项 显示 一 个 复 选 框 。 该 列 字段 类 型 通常 用 来 显示 布尔 
类 型 的 字段 

CommandField 显示 预定 义 的 命令 按钮 来 执行 选择 、 编 辑 、 或 者 删除 操作 

HyperLinkField 显示 数据 源 中 字段 的 值 为 超级 链接 。 该 字段 允许 将 第 二 个 字段 绑 定之 超级 链接 的 
URL 

ImageField 为 GridView 控件 中 的 每 一 项 显示 一 张 图 片 

TemplateField 在 GridView 控件 中 根据 指定 的 模板 来 显示 用 户 自 定义 的 内 容 。 该 字段 unxu 创建 

j 户 列 字段 


GridView 1 


有 三 种 方 
e 
e 


法 实现 绑 定 : 


牛 可 以 绑 定 至 数据 源 控件 , 例如 SglDataSource、ObjectDataSourc， 
也 可 以 绑 定 至 任何 实现 了 System.Collections.IEnumerable 接口 
System.Data.Data View, 


Ayo 


例 如 


的 数据 源 ， 


System.Collections.ArrayList、System.Collections.Hashtable 等 。 


将 GridView 控件 的 DataSourceID 属性 的 值 设 置 为 数据 源 的 ID。 
将 GridView 控件 绑 定 至 实现 了 System.Collections.IEnumerable 接口 的 数据 源 。 


设置 GridView 的 DataSource 属性 为 该 数据 源 并 调 
© GridView 控件 绑 定 至 指定 的 数据 源 控 件 后 ,可 以 实 ] 
下 面 的 代码 演示 如 何 使 


«$0 Page language-"VB" $» 
«html» 
«body» 
«form runat="server"> 
<h3>GridView Example</h3> 


| GridView 控件 来 


展示 数据 。 


] DataBind 方法 。 
疯 分 类 、 更 新 、 删 除 等 操作 。 
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<asp:gridview id="CustomersGridView" 


= 


datasourceid-"CustomersSource" 

autogeneratecolumns-"true" 

emptydatatext-"No data available." 

allowpaging="true" 

runat="server"> 

</asp:gridview> 

<asp:sqldatasource id="CustomersSource" 

selectcommand="Select [CustomerID], [CompanyName], [Address], [City], 
[PostalCode], [Country] From [Customers]" 


connectionstring="<%$ ConnectionStrings:NorthWindConnectionString%>" 
runat="server"/> 
</form> 
</body> 
</html> 
下 面 的 代码 演示 如 何 使 用 GridView 控件 的 更 新 、 删 除 功能 。 
«$8 Page language="C#" %> 
«html» 
«body» 
«form runat-"server"» 
<h3>GridView Edit Example</h3> 


<asp:gridview id="CustomersGridView" 
datasourceid="CustomersSqlDataSource" 
autogeneratecolumns="true" 
autogeneratedeletebutton="true" 
autogenerateeditbutton="true" 
datakeynames-"CustomerID" 
runat="server"> 

</asp:gridview> 


«asp:sqldatasource id-"CustomersSqlDataSource" 
selectcommand="Select [CustomerID], [CompanyName], [Address], [City], 
[PostalCode], [Country] From [Customers]" 
updatecommand="Update Customers SET CompanyName=@CompanyName, 
Address=@Address, City=@City, PostalCode=@PostalCode, Country=@Country WHERE 
(CustomerID = @CustomerID) " 
deletecommand="Delete from Customers where CustomerID = @CustomerID" 


connectionstring="<%$ ConnectionStrings:NorthWindConnectionString%>" 


runat="server"> 
</asp:sqldatasource> 
</form> 
</body> 
</html> 
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(3) DetailsView 控件 。 如 果 用 户 希 望 每 次 只 显示 一 条 检索 记录 
DetailsView 控件 。DetailsView 控件 ) 


Gridyiew 还 有 更 多 新 鲜 功 能 ， 由 于 篇 1 
读者 可 以 参看 相关 书籍 或 者 参阅 MSDN, 


由 所 限 在 此 不 能 一 一 演示 ， 有 兴趣 的 


可 以 使 用 


示 记 录 的 每 个 字段 。DetailsView 控件 支持 以 下 功能 : 


e 绑 定 到 数据 源 控 件 
WERL SH 
内 置 更 新 和 删除 功 
内 置 页 面 功能 。 
内 置 行 选择 功能 。 


可 以 编程 访问 DetailsView 对 象 模型 ， 
可 以 通过 主题 和 风格 调整 外 观 。 
Details View 控件 的 每 一 个 数据 行 都 是 通过 声明 字段 控件 来 创建 的 。 不 同 的 字段 类 型 


， 例 如 SqlDataSource. 
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动态 设置 属 


j 来 显示 表 中 数据 源 单条 记录 的 值 ， 表 的 每 一 行 中 显 


性 ， 处 理事 件 等 等 。 


确定 了 控件 中 行 的 行为 。 表 4-14 显示 可 用 的 行 字段 类 型 。 
表 4-14 行 字 段 类 型 
列 字 段 类 型 描 述 
BoundField 以 文本 显示 数据 源 中 字段 的 值 
i X Details View 控件 中 的 每 一 项 显示 命令 按钮 。 允 许 创建 一 行 用 户 按钮 控件 ,， 例 
ButtonField 
如 添加 和 移 除 按钮 
y AL au 的 每 一 项 显示 一 个 > E, EAT: 类 型 i jM 来 显示 
em 为 件 中 的 每 一 项 显示 一 个 复 选 框 。 该 行 字段 类 型 通常 用 来 显示 布 
尔 类 型 的 字段 
CommandField 显示 预定 义 的 命令 按钮 来 执行 选择 ， 编 辑 。 插 入 或 者 删除 操作 。 
-— 显示 数据 源 中 字段 的 值 为 超级 链接 。 该 行 字段 允许 将 第 二 个 字段 绑 定 之 超级 链 
HyperLinkField 
接 的 URL 
ImageField 在 DetailsView 控件 中 显示 一 张 图 片 
i 在 DetailsView 控件 中 根据 指定 的 模板 来 显示 用 户 自 定义 的 行 。 该 字段 允许 创建 
TemplateField "VB 
1FTÓ 


DetailsView 控件 可 以 绑 定 至 数据 源 控件 ， 也 可 以 绑 定 至 任何 实现 了 System. 


Collections.IEnumerable 接口 的 数据 源 ， 例 如 System.Data.DataView、 
ArrayList, System.Collections.Hashtable, 
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System.Collections. 


DetailsView 控件 绑 定 至 数据 源 控 件 的 方法 与 GridView 相同 ， 绑 定数 据 源 后 ， 可 以 


实现 更 新 , 插入 、 删 除 等 操作 。 下面 的 代码 演示 如 何 用 
控件 中 选中 数据 的 详细 信息 。 
«$8 Page Language="VB" $% 
«html» 
«body» 

<form runat="server"> 


> 


GridView 控件 来 显示 Details View 


ik p 


SE} O'YLAN dSV 


yO 193deug) 


= 


ASP.NET 4.0 与 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


<div> 
<table> 
«tr» 
«td» 

«asp:GridView ID="GridViewl" runat="server" 
AutoGenerateColumns="False" DataSourceID="Customers" 
DataKeyNames-"CustomerID"» 

«Columns» 
«asp:CommandField ShowSelectButton="True" /> 
<asp:BoundField DataField="ContactName" 
HeaderText="ContactName" /> 
<asp:BoundField DataField="CompanyName" 
HeaderText="CompanyName" /> 
</Columns> 
</asp:GridView> 
</td> 


<td valign="top"> 
<asp:DetailsView ID="DetailsViewl" runat="server" 
AutoGenerateRows="True" DataKeyNames="CustomerID" 
DataSourceID="Details" Height="50px" Width="301px"> 
</asp:DetailsView> 
</td> 
6 ee 
</table> 
&nbsp; &nbsp; 
<asp:SqlDataSource ID="Details" runat="server" 


ConnectionString="<%$ ConnectionStrings:NorthwindConnectionString %>" 
SelectCommand-"SELECT * FROM [Customers] WHERE ([CustomerID] = 
@CustomerID) "> 
<SelectParameters> 
<asp:ControlParameter ControlID="GridViewl" Name-"CustomerID" 
PropertyName="SelectedValue" 
Type="String" /> 
</SelectParameters> 
</asp:SqlDataSource> 
<asp:SqlDataSource ID="Customers" runat="server" 


ConnectionString="<%$ ConnectionStrings:NorthwindConnectionString %>" 
SelectCommand="SELECT [CompanyName], [ContactName], [CustomerID] FROM 
[Customers]"> 
</asp:SqlDataSource> 
</div> 

</form> 
</body> 
</html> 


下 面 的 代码 演示 如 何 使 用 Details View 控件 实现 对 数据 源 的 添加 、 删 除 和 更 新 。 


«$0 Page Language-"VB" $» 


i 


i 


<script runat="server"> 


Private Sub CustomerDetail ItemInserted(ByVal sender As Object, ByVal e As 
DetailsViewInsertedEventArgs) 


' 当 通 过 DetailsView 控件 新 纪录 插入 时 ， 刷 新 GridView 控件 
CustomersView.DataBind() 
End Sub 
Private Sub CustomerDetail ItemInserting(ByVal sender As Object, ByVal e As 
DetailsViewInsertEventArgs) 
For i As Integer - 0 To e.Values.Count - 1 
' 遍历 用 户 输入 的 被 HTML, 编码 的 数据 。 这 样 可 以 阻止 乱七八糟 的 数据 储存 在 数据 源 
If e.Values(i) IsNot Nothing Then 
e.Values(i) = Server.HtmlEncode(e.Values (i).ToString()) 
End If 
Next 
End Sub 
Private Sub CustomerDetail ItemUpdated(ByVal sender As Object, ByVal e As 
DetailsViewUpdatedEventArgs) 
' 当 数 据 在 Detail1sVievw 控件 中 更 新 是 ， 刷 新 GridView 控件 。 
CustomersView.DataBind() 
End Sub 
Private Sub CustomerDetail ItemUpdating(ByVal sender As Object, ByVal e As 
DetailsViewUpdateEventArgs) 
For i As Integer - 0 To e.NewValues.Count - 1 
' 遍 历 用 户 输入 的 被 HTML 编码 的 数据 。 这 样 可 以 阻止 乱七八糟 的 数据 储存 在 数据 源 
If e.NewValues (i) IsNot Nothing Then 
e.NewValues(i) = Server.HtmlEncode (e.NewValues (i).ToString()) 
End If 
Next 
End Sub 
Private Sub CustomerDetail ItemDeleted(ByVal sender As Object, ByVal e As 
DetailsViewDeletedEventArgs) 
' 当 数 据 在 DetailsView 控件 中 更 新 是 ， 刷 新 GridView 控件 。 
CustomersView.DataBind() 
End Sub 


«/script» 
«html» 
«body» 
<form id-"Form1" runat="server"> 
<h3> 
DetailsView Example</h3> 
<table cellspacing="10"> 


SII 
«td» 
«!-- Use a GridView control in combination with 一 一 > 
«!-- a DetailsView control to display master-detail --> 
«!-- information. When the user selects a store from 一 一 > 
«!-- GridView control, the customers//s detailed 一 一 > 
«!-- information is displayed in the DetailsView 一 一 > 


CE ==> 
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«asp:GridView ID-"CustomersView" DataSourceID-"Customers" 


= 


AutoGenerateColumns="False" 
DataKeyNames="CustomerID" runat="server"> 
<HeaderStyle BackColor="Blue" ForeColor="White" 
<Columns> 


f 
«asp:CommandField ShowSelectButton-"True" /» 
«asp:BoundField DataField-"ContactName" 

/> 
<asp:BoundField DataField="CompanyName" 

/> 


HeaderText="ContactName" 


HeaderText="CompanyName" 
</Columns> 
</asp:GridView> 
</td> 
<td valign="top"> 
<asp:DetailsView ID-"CustomerDetail" 
DataSourceID="Details" AutoGenerateRows="false" 
AutoGenerateInsertButton-"true" 
AutoGenerateEditButton-"true" 
AutoGenerateDeleteButton-"true" 
EmptyDataText-"No records." 
DataKeyNames-"CustomerID" GridLines-"Both" 
OnItemInserted-"CustomerDetail ItemInserted" 
OnItemInserting-"CustomerDetail ItemInserting" 
OnItemUpdated-"CustomerDetail ItemUpdated" 
OnItemUpdating-"CustomerDetail ItemUpdating" 
OnItemDeleted-"CustomerDetail ItemDeleted" 
runat="server"> 
<HeaderStyle BackColor="Navy" ForeColor="White" 
<RowStyle BackColor="White" /> 
<AlternatingRowStyle BackColor-"LightGray" 


/> 


/> 
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<EditRowStyle BackColor="LightCyan" /> 
<Fields> 
<asp:BoundField DataField="CustomerID" HeaderText="CustomerID" 
ReadOnly-"True" /» 
«asp:BoundField DataField-"ContactName" 


Header] 


Header] 


Vs 
<asp:BoundField 
Text="ContactTitle" 


Text="ContactName" 


/> 
<asp:BoundField 
> 


DataField-"ContactTitle" 


DataField-"CompanyName" 


HeaderText-"CompanyName" / 
«asp:BoundField DataField-"Address" HeaderText-"Address" /» 
«asp:BoundField DataField-"City" HeaderText-"City" /» 
«asp:BoundField DataField-"Region" HeaderText-"Region" /» 
«asp:BoundField DataField-"PostalCode" HeaderText-"PostalCode" 


/> 


<asp:BoundField 
<asp:BoundField 


<asp:BoundField 
</Fields> 


DataField-"Country" HeaderText-"Country" 
DataField-"Phone" 
DataField-"Fax" 


/> 
HeaderText="Phone" /> 


HeaderText="Fax" /> 


«/asp:DetailsView» 


«/td» 

«/tr» 
«/table» 
«1-- This example uses Microsoft SQL Server and connects --> 
«!-- to the Northwind sample database. ==> 
«1-- It is strongly recommended that each data-bound T 
«!-—- control uses a separate data source control. 一 一 > 
<asp:SqlDataSource ID="Customers" runat="server" 

ConnectionString= 


"«$$ ConnectionStrings:NorthwindConnectionString %>" 
SelectCommand-"SELECT [CompanyName], [ContactName], [CustomerID] 
FROM [Customers]"> 
«/asp:SqlDataSource» 


«1-- Add a filter to the data source control for the 二 一 > 
<!-— DetailsView control to display the details of the --> 
«!-- store selected in the GridView control. 一 一 > 
«asp:SqlDataSource ID="Details" 

ConnectionString- 


"«$$ ConnectionStrings:NorthwindConnectionString %>" 
runat="server" 

SelectCommand="SELECT * FROM [Customers] 

WHERE ([CustomerID] = @CustomerID)" 

DeleteCommand="DELETE FROM [Customers] 
WHERE [CustomerID] = @CustomerID" 

InsertCommand="INSERT INTO [Customers] ([CustomerID], 
[CompanyName], [ContactName], [ContactTitle], [Address], 
[City], [Region], [PostalCode], [Country], [Phone], [Fax]) 
VALUES (@CustomerID, @CompanyName, @ContactName, @ContactTitle, 
@Address, @City, @Region, @PostalCode, @Country, @Phone, @Fax)" 

UpdateCommand="UPDATE [Customers] SET [CompanyName] = @CompanyName, 


[ContactName] = @ContactName, [ContactTitle] = @ContactTitle, 
[Address] = @Address, [City] = @City, [Region] = @Region, 
[PostalCode] = @PostalCode, [Country] = @Country, 

[Phone] = @Phone, [Fax] = @Fax 

WHERE [CustomerID] = @CustomerID"> 


<SelectParameters> 

«asp:ControlParameter ControlID="CustomersView" 
Name="CustomerID" PropertyName="SelectedValue" 
Type="String" /> 
</SelectParameters> 


<DeleteParameters> 
<asp:Parameter Name="CustomerID" Type="String" /> 

</DeleteParameters> 

<UpdateParameters> 
<asp:Parameter Name="CompanyName" Type="String" /> 
<asp:Parameter Name="ContactName" Type="String" /> 
<asp:Parameter Name="ContactTitle" Type="String" /> 


<asp:Parameter Name="Address" Type="String" /> 
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<asp:Parameter Name="City" Type="String" /> 
<asp:Parameter Name="Region" Type="String" /> 
<asp:Parameter Name="PostalCode" Type="String" /> 
<asp:Parameter Name="Country" Type="String" /> 
<asp:Parameter Name="Phone" Type="String" /> 
<asp:Parameter Name="Fax" Type="String" /> 
«asp:Parameter Name-"CustomerID" Type-"String" /> 
</UpdateParameters> 
<InsertParameters> 
<asp:Parameter Name="CustomerID" Type="String" /> 
<asp:Parameter Name="CompanyName" Type="String" /> 
<asp:Parameter Name="ContactName" Type="String" /> 


<asp:Parameter Name="ContactTitle" Type="String" /> 
<asp:Parameter Name="Address" Type="String" /> 
«asp:Parameter Name-"City" Type-"String" /> 
«asp:Parameter Name-"Region" Type-"String" /» 
«asp:Parameter Name-"PostalCode" Type-"String" /» 
«asp:Parameter Name-"Country" Type-"String" /» 
«asp:Parameter Name-"Phone" Type-"String" /» 


«asp:Parameter Name-"Fax" Type-"String" /» 
</InsertParameters> 
</asp:SqlDataSource> 
</form> 
</body> 
</html> 


在 这 里 ， 读 者 可 能 会 发 现 DetailsView 控件 在 默认 情况 下 没有 提供 查看 下 一 条 记录 


的 机 制 ， 如 果 要 浏览 其 他 记录 ， 可 以 在 DetailsView 的 智能 标签 中 选中 “启用 分 页 ” 复 选 
框 ， 这 将 在 DetailsView 底部 添加 一 个 分 页 行 。 默 认 情 况 下 ， 分 布 界面 使 用 页 码 跳 转 到 特 
定 记录 。 


(4) FormView 控件 。 用 来 显示 数据 源 的 单条 记录 。 与 DetailsView 控件 相似 ,只 是 
显示 的 是 用 户 自 定义 的 模板 ， 而 不 是 行 字段 。 创 建 模板 可 以 使 控制 数据 显示 更 加 灵活 。 
FormView 控件 支持 以 下 特征 : 
e 绑 定 至 数据 源 控件 ， 例 如 SqlDataSource 和 ObjectDataSource. 

内 置 插入 功能 。 

内 置 更 新 和 删除 功能 。 

内 置 分 页 功能 。 

可 以 编程 访问 FormView 对 象 模型 ， 动 态 设置 属性 ， 处 理事 件 等 等 。 
可 以 通过 用 户 自 定义 的 模板 、 主 题 和 风格 调整 外 观 。 
FormView 显示 内 容 时 ， 必 须 为 其 创建 模板 。 表 4-15 列 出 了 不 同 的 模板 类 型 。 


表 4-15 模板 类 型 


类 型 名 称 类 型 意义 
EditItemTemplate 当 FormView 控件 处 于 编辑 模式 下 ， 为 数据 行 定义 内 容 。 该 模板 通常 包含 输 
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入 控件 和 命令 按钮 ， 以 便于 用 户 编辑 鲜 有 记录 
当 FromView 控件 绑 定 至 不 包含 任何 记录 的 数据 源 时 ， 为 显示 的 空 数据 行 定 
EmptyDataTemplate g NERA i ENAA : 
义 内 容 。 该 模板 通常 包含 内 容 ， 以 声明 该 数据 源 不 包含 任何 内 容 
FooterTemplate 为 页 肢 行 定义 内 容 。 该 模板 通常 包含 希望 在 页 脚 显示 的 内 容 
Header Template 为 标题 行 定义 内 容 。 该 模板 通常 包含 希望 在 标题 行 显示 的 附加 内 容 
当 FormView 控件 处 于 只 读 模 式 时 定义 数据 行 的 内 容 。 该 模板 通常 包含 显示 
ItemTemplate PRA 
现 有 记录 的 值 
当 FormView 控件 处 于 插入 模式 时 定义 数据 行 的 内 容 。 该 模板 通常 包含 输入 
InsertItemTemplate : i S 
控件 和 命令 按钮 ， 以 便于 用 户 编 辑 鲜 有 记录 
当 分 页 功能 激活 时 ， 定 义 分 页 行 的 内 容 。 该 模板 通常 包含 用 户 可 以 导航 之 其 
PagerTemplate . i 
他 记录 的 控件 
与 GridView 控件 类 似 , FormView 控件 绑 定 至 指定 的 数据 源 控件 后 , 可 以 实现 插入 、 
更 新 、 删 除 等 操作 。 下 面 的 代码 演示 使 用 FormView 控件 显示 SqlDataSource 的 数据 。 


«$0 Page language-"VB" %> 
«html» 
«body» 
«form runat="server"> 
<h3>FormView Example</h3> 
<asp:formview id="EmployeeFormView" 
datasourceid="EmployeeSource" 
allowpaging="true" 
datakeynames-"EmployeeID" 
runat="server"> 
<itemtemplate> 
<table> 
<tr> 
<td> 
<asp:image id-"Employeelmage" 
imageurl='<%# Eval("PhotoPath") %>' 
alternatetext='<%# Eval ("LastName") 
runat="server"/> 
</td> 
<td> 
<h3><%# Eval ("FirstName") %>&nbsp;<%# Eval ("LastName") %></h3> 
<S# Eval ("Title") %> 
</td> 
EW testa 
</table> 
</itemtemplate> 
<pagersettings position="Bottom" 
mode="NextPrevious"/> 


oe 
M 


</asp: formview> 
<asp:sqldatasource id="EmployeeSource" 
selectcommand="Select [EmployeeID], [LastName], [FirstName], [Title], 
[PhotoPath] From [Employees]" 
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= 


connectionstring="<%$ ConnectionStrings:NorthWindConnectionString%>" 
runat="server"/> 
</form> 
</body> 
</html> 


下 面 的 代码 演示 使 用 FormView 编辑 记录 。 


«$0 Page language-"VB" %> 


<script runat="server"> 
Private Sub EmployeeFormView_ItemUpdating (ByVal sender As Object, ByVal e As 
FormViewUpdateEventArgs) 
， 检查 用 户 输入 的 数据 是 非 有 效 。 本 例 检查 用 户 输入 的 数据 是 否 有 
' 使 用 NewValues 属性 来 获取 用 户 新 输入 的 数据 。 
Dim emptyFieldList As ArrayList = ValidateFields (e.NewValues) 
If emptyFieldList.Count » 0 Then 
， 如果 用 户 输入 的 数据 有 空白 ， 显 示 错 误 信 息 。 使 用 Keys 属性 获取 关键 字 字 段 的 值 
Dim keyValue As String = e.Keys("EmployeeID").ToString() 
MessageLabel.Text = "You must enter a value for each field of record 
" + keyValue + ".<br/>The following fields are missing:«br/»«br/»" 
， 显示 没 填 的 信息 。 
For Each value As String In emptyFieldList 


' 使 用 oldvalues 属性 来 获取 字段 的 原始 值 


Hi 


A 


MessageLabel.Text += value + " - Original Value = " + 
e.OldValues (value) .ToString() + "<br>" 
Next 
， 取消 更 新 过 程 。 
e.Cancel = True 


Else 


' 字段 有 效 性 检查 通过 ， 清 除 错误 信息 标签 。 
MessageLabel.Text = "" 
/mal EE 
End Sub 
Private Function ValidateFields(ByVal list As IOrderedDictionary) As 


E 


ArrayList 
' 创建 一 个 ArrayList 对 象 来 存储 任何 空 字 段 的 名 称 。 
Dim emptyFieldList As New ArrayList() 
AAP RUNE Bo METT TTRUS null 值 。 
For Each entry As DictionaryEntry In list 
If entry.Value = [String] .Empty Then 
' Jj ArrayList 对 象 添 加 字段 名 。 
emptyFieldList.Add(entry.Key.ToString()) 
End If 
Next 
Return emptyFieldList 
End Function 
Private Sub EmployeeFormView ModeChanging(ByVal sender As Object, ByVal e As 


FormViewModeEventArgs) 
If e.CancelingEdit Then 
， 用 户 取消 更 新 过 程 ， 清 除 错误 信息 标签 。 


MessageLabel.Text - 
End If 
End Sub 
«/script» 
«html» 
«body» 


<form runat="server"> 


<h3>FormView 


Example</h3> 


<asp:formview id="EmployeeFormView" 
datasourceid="EmployeeSource" 
allowpaging="true" 


datakeynames-"EmployeeID" 

headertext-"Employee Record" 

emptydatatext-"No employees found." 

onitemupdating-"EmployeeFormView ItemUpdating" 

onmodechanging-"EmployeeFormView ModeChanging" 

runat="server"> 

<headerstyle backcolor-"CornFlowerBlue" 
forecolor="White" 


font-size="14" 
horizontalalign="Center" 
wrap="false"/> 
<rowstyle backcolor="LightBlue" 
wrap="false"/> 
<pagerstyle backcolor="CornFlowerBlue"/> 
<itemtemplate> 
<table> 
<tr> 
<td rowspan="6"> 


<asp:image id="EmployeeImage" 
imageurl='<%# Eval ("PhotoPath") %>' 
alternatetext='<%# Eval ("LastName") 
runat="server"/> 
</td> 
<td colspan="2"> 
&nbsp; 
«/td» 
</tr> 
<tr> 
«td» 
«b»Name:«/b» 
«/td» 
«td» 
«$4 Eval("FirstName") $» <%# Eval ("LastName") 
«/td» 
</tr> 
<tr> 


oo 
Wi 


«td» 
<b>Title:</b> 


E» 
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«/td» 
«td» 
<S# Eval("Title") %> 
</td> 
</tr> 
<tr> 
<td> 
<b>Hire Date:</b> 
</td> 
<td> 
<%# Eval ("HireDate","{0:d}") 
</td> 
</tr> 
<tr height="150" valign="top"> 
<td> 
<b>Address: </b> 
</td> 
<td> 
<%# Eval("Address") %><br/> 
«$4 Eval("City") %> <%# Eval ("Region") 
( 
( 


= 


oe 
V 


oe 
V 


«$4 Eval("PostalCode") %><br/> 
«$4 Eval("Country") %> 
«/td» 
AE TES 
«tr» 


«td colspan="2"> 
«asp:linkbutton id-"Edit" 
text-"Edit" 
commandname-"Edit" 


runat-"server"/» 
«/td» 
EE 
</table> 
</itemtemplate> 
<edititemtemplate> 
<table> 
«tr» 
«td rowspan="6"> 


<asp:image id="EmployeeEdit Image" 
imageurl='<%# Eval ("PhotoPath") %>' 
alternatetext='<%# Eval("LastName") %>' 
runat="server"/> 
</td> 
<td colspan="2"> 
&nbsp; 
«/td» 
</tr> 
«tr» 
«td» 
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<b>Name :</b> 
«/td» 
«td» 


<asp:textbox id-"FirstNameUpdateTextBox" 


text='<%# Bind("FirstName") $»' 
runat-"server"/» 


«asp:textbox id-"LastNameUpdateTextBox" 


text='<%# Bind("LastName") %>' 
runat="server"/> 
</td> 
UA EXEPS 
< 七 工 > 
«td» 
<b>Title:</b> 
</td> 
<td> 
<asp:textbox id="TitleUpdateTextBox" 
text='<%# Bind("Title") %>' 
runat="server"/> 
</td> 
eS 
Sq 
«td» 
«b»Hire Date:</b> 
«/td» 
«td» 


<asp:textbox id-"HireDateUpdateTextBox" 


text-'«$4 Bind("HireDate", "(0:dj") 
runat-"server"/» 
«/td» 
«/tr» 
«tr height="150" valign="top"> 
<td> 
<b>Address: </b> 
</td> 
<td> 
<asp:textbox id="AddressUpdateTextBox" 
text='<%# Bind("Address") %>' 
runat="server"/> 
<br/> 
<asp:textbox id="CityUpdateTextBox" 
text='<%# Bind("City") $»' 
runat-"server"/» 


«asp:textbox id-"RegionUpdateTextBox" 


text='<%# Bind("Region") $»' 
width="40" 


runat="server"/> 


<asp:textbox id="PostalCodeUpdateTextBox" 
text='<%# Bind("PostalCode") %>' 
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</td> 
</tr> 


<tr> 


<td colspan="2"> 


< 


< 


</td> 
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= 


width="60" 

runat="server"/> 

lore y= 

asp:textbox id="CountryUpdateTextBox" 


text='<%# Bind("Country") %>' 
runat="server"/> 


asp: linkbutton id="UpdateButton" 
text-"Update" 
commandname-"Update" 
runat-"server"/» 

asp:linkbutton id-"CancelButton" 
text-"Cancel" 
commandname-"Cancel" 
runat-"server"/» 


«/tr» 


«/tabl 


e> 


</edititemtemplate> 
<pagersettings position="Bottom" 


mode=" 


Numeric"/> 


</asp: formview> 
<br/><br/> 
<asp:label id-"MessageLabel" 


forecolor="Red" 

runat="server"/> 
«!-- This example uses Microsoft SQL Server and connects --> 
«!-- to the Northwind sample database. Use an ASP.NET 一 一 > 
«!-- expression to retrieve the connection string value 一 一 > 
«!-- from the Web.config file. 一 一 > 


«asp:sqldatasource id-"EmployeeSource" 


selectcommand="Select [EmployeeID], [LastName], [FirstName], [Title], 


[Address], [City], [Region], [PostalCode], [Country], [HireDate], [PhotoPath] 
From [Employees]" 


updatecommand="Update [Employees] Set [LastName ]=@LastName, 


EmployeeID] =@1 


FirstName]=@FirstName, [Title]=@Title, [Address]=@Address, [City]=@City, 
Region] =@Region, [PostalCode] =@PostalCode, [Country] =@Country Where 


EmployeeID" 


connectionstring="<%$ ConnectionStrings:NorthWindConnectionString%>" 


runat="server"/> 


</form> 
</body> 


</html> 


ASP.NET 4 提供 的 用 于 数据 操作 的 控件 比 ASP.NET 3.5 的 数据 控件 方便 许多 ， 大 大 


减少 了 需要 开发 的 代码 量 。 由 于 篇 幅 所 限 ， 本 节 只 是 对 这 些 数据 控件 进行 简单 介 
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, 数 


据 源 展示 控件 的 功能 远 比 介绍 的 更 强大 、 更 灵活 ， 相 信 读 者 在 以 后 的 开发 实践 过 程 中 一 


定 能 够 获取 更 多 的 乐趣 ! 


[4.4.4 Web 用 户 控件 


在 开发 Web 应 用 程序 时 , 经 常 遇 到 这 样 的 问题 : 一 个 网 站 有 多 个 页 面 的 顶部 是 相同 
的 以 保证 整个 网 站 风格 一 致 ,在 ASP 中 可 以 采用 更 先进 的 技术 一 一 Web 用 户 控件 将 顶部 
做 成 单独 的 文件 ， 在 其 他 页 面 中 用 include 语法 来 包含 顶部 文件 。 
Web 用 户 控 件 是 程序 员 根 据 应 用 程序 的 需要 , 使 用 与 编写 Web 窗 体 相同 的 编程 技术 
定义 的 控件 。 用 户 控件 可 以 包含 HTML、 服 务 嚣 控件 和 事件 处 理 逻 辑 。 创 建 用 户 控 件 的 
步骤 与 创建 Web 窗 体 页 的 步骤 非常 相似 。 
下 面 通过 实例 来 演示 Web 用 户 控件 的 编写 和 使 用 方法 。 本 例 的 具体 步骤 如 下 : 
(1) 启动 Dreamweaver CS6， 新 建 一 个 ASPNETVB 页 面 ， 然 后 保存 文件 ， 并 将 其 
命名 为 UserControlTest.ascx， 注 意 文件 的 后 级 为 ascx， 而 不 是 aspx. 

(2) 切换 到 代码 视图 ， 删 除 所 有 的 <HTML><body><title> 标 签 。 

(3) 在 设计 视图 中 插入 一 张 表单 ， 然 后 单 击 “ 常 用 ”插入 面板 上 的 “标签 选择 器 ” 
按钮 ， 在 弹出 的 对 话 框 左 侧 单 击 “ASPNET 标签 ”/“Web 服务 器 控件 ” 在 页 面 上 插入 
一 个 TextBox 控件 、 一 个 Button 控件 和 一 个 Label 控件 ， 设 置 TextBox 的 ID 属性 为 
txtName, Button 控件 的 ID 属性 为 btnOK, Text 属性 为 “提交 ” 设置 Label 控件 的 ID 
属性 为 lblResult。 此 时 UserControl.ascx 界面 如 图 4-8 所 示 。 
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图 4-8 | UserControl.ascx 界面 
(4) 选中 按钮 ， 并 打开 其 标签 编辑 器 ， 选 中 OnClick 事件 ， 并 在 对 话 框 右 侧 的 文本 


n 
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框 中 键入 按钮 单 击 事件 的 名 称 btnOK_Click， 然 后 切换 到 代码 视图 编写 如 下 代码 : 
<script runat-"server"» 
Private Sub btnOK Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnOK.Click 
Me.lblResult.Text = Me.txtName.Text 
End Sub 
«/script» 


至 此 ， 一 个 用 户 控件 制作 完成 。 但 用 户 控件 是 不 能 单独 显示 的 ， 如 果 要 在 其 他 页 面 


中 使 用 该 控件 ， 需 要 在 页 顶部 添加 如 下 语句 引入 用 户 控件 。 
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(5) 在 Dreamweaver 中 新 建 一 个 名 为 UserControlTest.aspx 的 ASP.NET VB WH, 


然后 切换 到 “代码 ”视图 ， 光 标 停留 在 页 面 顶部 ， 输 入 如 下 代码 ; 


«SQ Register TagPrefix-"TT" TagName-"UserControl" 
Src-"UserControlTest.ascx" %> 


(6) 在 UserControlTest.aspx 页 面 中 需要 显示 控件 的 地 方 添加 以 下 语句 : 
<TT:UserControl id="showname" runat="server" ></TT:UserControl> 

CD 在 浏览 器 中 查看 UserControlTest.aspx。 在 文本 框 中 输入 姓名 以 后 单 击 “提交 ” 
按钮 ， 则 用 户 输入 的 姓名 将 被 显示 出 来 ， 如 图 4-9 所 示 。 


| @ XB A - BK [Maxthon] 202 


文件 (E) MHD SEW 收藏 如 ”快捷 组 @) Uo 
Deets para 


地 址 9] http:/flocalhost/UserControlTest.aspx IE 图 | 


图 4-9 UserControlTest.aspx 运行 效果 


显然 ， 在 UserControlTest.aspx 中 所 做 的 事情 非常 简单 ， 仅 仅 是 添加 了 一 个 Web 用 
户 控件 .至 于 图 4-8 中 显示 的 控件 以 及 对 应 的 事件 处 理 程序 都 是 用 Web 用 户 控件 完成 的 。 
在 实际 开发 中 ,可 以 将 需要 多 次 显示 的 界面 做 成 Web 用 户 控 件 的 形式 ,在 需要 使 用 该 界 
面 的 页 面 中 引用 该 Web 用 户 控件 即 可 。 


[Ll4.4.5 站 点 导航 控件 组 


利用 站 点 导航 控件 可 以 方便 地 实现 对 站 点 内 容 的 导航 。 可 以 使 用 ASP.NET 默认 的 基 
于 XML 的 方法 来 指定 网 站 的 站 点 地 图 。 或 者 仅仅 加 上 少量 的 编码 ， 就 能 使 用 现 有 的 定 
制 方法 和 其 他 一 些 方法 。 除 了 提供 一 种 可 定制 的 手段 来 指定 站 点 结构 外 ， 导 航 Web 控件 
使 得 显示 站 点 地 图 就 像 拖 放 一 个 控件 到 ASPNET 页 面 一 样 简单 。 
站 点 导航 控件 组 中 包括 三 个 控件 : SiteMapPath、TreeView 和 Menu 控件 ， 显 示 在 
Visual Web Developer 工具 箱 的 “导航 ”部 分 。 显 示 站 点 导航 时 ，TreeView 控件 和 Menu 
控件 都 使 用 SiteMapPath 控件 来 读 取 站 点 地 图 的 内 容 。 在 底层 实现 上 ， 这 些 控 件 调用 了 
ASP.NET 的 站 点 导航 API。 既 然 该 站 点 导航 部 分 是 用 提供 者 模型 来 实现 的 ， 那 么 该 控件 
在 怎样 串 行 化 站 点 地 图 的 内 部 实现 原理 是 易于 理解 的 。 不 管 是 否 使 用 默认 的 站 点 地 图 或 
滚动 自己 定制 的 站 点 地 图 逻辑 ， 导 航 控件 都 可 以 用 于 同 站 点 地 图 一 道 工作 。 
由 于 导航 Web 控件 的 内 容 总 是 基于 访问 的 网 页 及 网 站 地 图 的 内 容 , 因此 更 新 网 站 地 
图 将 立即 更 新 网 站 使 用 的 导航 控件 。 如 果 要 在 网 站 中 新 增 一 个 部 分 ， 只 需要 创建 对 应 的 
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ASP.NET 网 页 , 并 将 创建 的 网 页 与 网 站 地 图 进行 关联 。 保存 对 网 站 地 图 所 做 的 修改 之 后 ， 
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在 网 站 内 使 用 的 导航 控件 将 自动 更 新 。 


要 使 


指出 ) 


接 。 


必须 有 
下 面 对 导 航 控件 组 中 的 控件 进行 简单 介绍 。 
(1) SiteMapPath 控件 。 这 个 探 


个 名 为 Web.sitemap 的 文件 。 


用 导航 Web 控件 , 首先 需要 使 用 网 站 地 


牛 提供 一 个 面包 条 (breadcrumb )， 它 是 一 行文 本 ， 
] 户 当前 在 网 站 结构 中 的 位 置 。 面 包 条 的 每 一 个 节点 都 显示 为 返回 到 前 一 部 分 的 链 
面包 条 让 用 户 能 快速 了 解 他 /她 在 当前 网 站 中 的 位 置 ， 并 提供 一 种 快速 返回 到 较 高 层 
次 的 方法 。 


SiteMapPath 控件 根据 网 站 地 图 中 的 值 以 及 当前 网 页 在 网 站 地 图 中 的 位 置 显 示 布 局 。 


该 控件 显示 终端 
被 访问 的 页 面 以 及 i 


户 相 对 于 站 点 结构 的 位 置 ， 并 且 根 据 站 点 地 图 定义 的 站 点 结构 、 
六 控件 的 属性 值 决定 SiteMapPath 控件 的 输出 。 


SiteMapPath 由 多 个 节点 和 路 径 分隔 符 构成 。 路 径 中 的 每 一 个 元 素 都 称 为 一 个 节点 ， 
并 由 一 个 SiteMapNodeltem 对 象 表示 。 表 4-16 为 不 同 的 节点 类 型 列表 。 
表 4-16 节点 类 型 表 
节点 类 型 描 述 
根 节 点 (root) 网 站 地 图 层次 结构 最 顶层 的 节点 
父 节 点 (parent) 拥有 一 个 或 者 多 个 子 节点 ， 但 是 不 是 当前 节点 
当前 节点 (currenb 该 节点 表示 当前 显示 的 页 面 


该 控件 的 主要 属性 如 下 : 
PathSeparator: 指定 用 于 分 开 SiteMapPath 中 的 每 个 结 点 的 字符 串 〈 默 认为 > )。 


PathSeparatorStyle: 获取 PathSeperator 字符 串 使 用 的 


TE 
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PathSeparatorTemplate: 获取 或 设置 一 个 站 点 路 径 分 隔 符 的 控件 模板 。 
Provider: 获取 或 设置 所 使 用 的 SiteMapProvider。 


RenderCurrentNodeAsLink: 指定 


False。 


CurrentNode 是 否 生 成 为 一 个 链接 ， 默 认为 


ParentLevelsDisplayed: 设置 或 者 获取 相对 于 当前 显示 的 节点 ， 控 件 显示 的 父 


节点 的 层 数 。 
PathDirection: 设置 或 者 获取 导航 


NodeStyle: 定制 在 面包 条 中 的 节点 的 外 观 。 


路 径 节点 呈现 的 顺序 。 


RootNodeStyle: 获取 或 者 设置 根 节 点 使 用 的 样式 。 


RootNodeTemplate: 获取 或 者 设置 根 节 点 使 用 的 模版 。 

ShowToolTips: 获取 或 者 设置 是 否 SiteMapPath 控件 中 超级 链接 类 型 的 导航 节 
点 的 一 个 额外 的 属性 。 根 据 客户 端 是 否 文 持 ， 当 光标 葵 浮 在 已 设置 了 该 属性 
的 超级 链接 上 面 时 ， 会 显示 一 个 ToolTip. 


SiteMapProvider: 获取 或 者 设置 
名 称 。 


SkipLinkText: 获取 或 者 设置 浏览 过 屏 


于 呈现 节点 导航 控件 的 SiteMapProvider 的 


幕 时 呈现 的 替换 控件 内 容 的 文本 。 


定义 网 站 的 结构 ， 即 在 网 站 的 根 目录 
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€ CurrentNodeStyle: 获取 当前 节点 显示 文本 的 使 用 的 样式 。 该 属性 的 设置 将 履 


盖 当 前 节点 的 NodeStyle 设置 。 

SiteMapPath 控件 中 的 主要 事件 如 下 : 

ItemCreated: 当 SiteMapNoteltem 被 SiteMapPath 创建 时 触发 。 引 发 OnltemCreated 

SiteMapPath 包含 允许 进一步 定制 生成 如 下 四 种 输出 模板 : NodeTemplate、 
RootNodeTemplate、CurrentNodeTemplate、PathSeparatorTemplate。 

以 下 代码 展示 如 何 使 用 SiteMapPath 控件 。 
«$8 Page Language="VB" $» 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 
«HTML» 


«BODY» 
<FORM runat="server"> 


XL 


«asp:SiteMapPath ID="SiteMapPath1" runat="server" 
RenderCurrentNodeAsLink="true" 
NodeStyle-Font-Name-"Franklin Gothic Medium" 
NodeStyle-Font-Underline-"true" 
NodeStyle-Font-Bold-"true" 
RootNodeStyle-Font-Name-"Symbol" 
RootNodeStyle-Font-Bold-"false" 
CurrentNodeStyle-Font-Name-"Verdana" 
CurrentNodeStyle-Font-Size-"10pt" 
CurrentNodeStyle-Font-Bold-"true" 
CurrentNodeStyle-ForeColor="red" 
CurrentNodeStyle-Font-Underline-"false" 
HoverNodeStyle-ForeColor-"blue" 
HoverNodeStyle-Font-Underline-"true"» 
<CURRENTNODETEMPLATE> 

<asp: Image id-"Imagel" runat="server" 
ImageUrl-"WebForm2.jpg" AlternateText-"WebForm2"/» 
«/CURRENTNODETEMPLATE» 
«/asp:SiteMapPath» 


</FORM> 
</BODY> 
</HTML> 


上 例 中 使 用 默认 的 SiteMapProvider 和 Web.sitemap 文件 。Web.sitemap 文件 是 一 个 
XML 文件 ， 它 定义 了 网 站 的 逻辑 部 分 ， 并 可 将 每 部 分 关联 到 特定 的 URL。 在 项 目 中 添 
加 网 站 地 图 时 ， 即 可 创建 该 文件 ， 并 放置 于 站 点 根 目录 下 。 不 能 将 该 文件 重 命名 或 放置 
于 其 他 目录 中 ， 否 则 导航 Web 控件 将 抵 不 到 网 站 地 图 。 

Web.sitemap 文件 的 结构 如 以 下 代码 所 示 。 


<siteMap> 


y 
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<siteMapNode title-"WebForml" description-"WebForml1" url-"WebForml.aspx" > 


<siteMapNode title="WebForm2" description="WebForm2" 


url-"WebForm2.aspx"/» 
</siteMapNode> 
</siteMap> 


(2) TreeView 控件 。SiteMapPath 控件 显示 的 是 网 站 结构 的 一 部 分 ， 即 网 站 根 目录 


到 浏览 者 当前 所 在 位 置 之 间 的 路 径 。 如 果 和 希望 在 网 站 结构 中 随意 跳 转 ， 则 可 使 用 
TreeView 控件 。 
TreeView 控件 与 SiteMapDataSource 控件 配合 ， 提 供 网 站 结构 的 树 状 目录 ， 顶 层 显 
示 主 类 别 ， 每 个 主 类 别 可 展开 以 显示 多 个 子 类 别 。 该 控件 有 以 下 特性 : 
e 人 允许 控件 的 节点 与 XML、 表 格 类 型 数据 〈tabular) 或 者 关系 数据 进行 数据 绑 
定 。 
e 通过 与 SiteMapDataSource 控件 集成 来 实现 站 点 导航 。 
SiteMapDataSource 控件 自动 从 网 站 地 图 中 检索 数据 ,该 控件 没有 任何 向 导 ， 也 不 需 
要 进行 任何 配置 。 
e 市 点 文本 可 以 显示 为 普通 文本 格式 或 者 超 链接 格式 。 
e 可 根据 TreeView 对 象 模型 动态 创建 菜单 、 菜 单项 目 以 及 设置 属性 等 。 
e 可 以 在 每 个 节点 劳 边 显示 复 选 框 。 
e 可 以 通过 主题 、 用 户 定义 的 图 片 、 风 格 和 用 户 定 义 的 模板 来 定制 外 观 。 
TreeView 控件 由 多 个 节点 组 成 , 每 个 节点 表示 网 站 地 图 的 一 部 分 。TreeView 控件 中 
的 节点 可 以 分 为 4 种 ， 表 4-17 为 不 同 的 节点 类 型 列表 。 
表 4-17 节点 类 型 表 


节点 类 型 Hi xk 
根 节 点 网 站 地 图 层次 结构 最 顶层 的 节点 
父 节 点 拥有 一 个 或 者 多 个 子 节 点 ， 但 是 不 是 当前 节点 
当前 节点 该 节点 表示 当前 显示 的 页 面 
叶子 节点 这 种 节点 有 父 节 点 ， 但 没有 子 节点 


TreeView 控件 的 主要 属性 如 下 : 
€  AutoGenerateDataBindings: 设置 TreeView 控件 是 否 自动 产生 树 节 点 绑 定 。 
€ CheckedNodes: 获取 TreeView 控 件 中 复 选 框 已 经 选中 的 TreeNode 对 象 的 集合 。 
€  CollapselmageURL: 指定 节点 的 折 车 图 标的 图 像 URL. 
€ CollapseImageToolTip: 这 是 TreeView 控件 特有 的 外 观 属性 ， 指 定 光 标 指 问 该 

节点 的 折 闭 图 标 时 显示 的 提示 文本 。 

€ ExpandImageToolTip: 这 是 TreeView 控件 特有 的 外 观 属性 ， 指 定 光 鼠 标 指 问 
该 节点 的 展开 图 标 时 显示 的 提示 文本 。 

€ EnableClientScript: 设置 TreeView 控件 是 否 用 客户 端 脚本 来 处 理 展开 和 折 筠 
事件 。 

ExpandDepth: 设置 TreeView 控件 第 一 次 显示 时 展开 到 多 少 层 。 

ImageSet: 设置 用 于 TreeView 控件 的 图 片 组 。 

LeafNodeStyle: 获取 用 于 设置 叶子 节点 样式 的 TreeNodeStyle 的 引用 。 

MaxDataBindDepth: 设置 TreeView 控件 的 最 大 深度 。 
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Nodeldent: 设置 TreeView 控件 的 子 节 点 缩 进 量 (以 像素 为 单位 )， 默认 为 20。 
Nodes: 获取 根 节 点 的 集合 。 

NodeWrap: 设置 如 果 节 点 中 的 字数 太 多 时 是 否 自动 换行 。 
NoExpandImageURL: 设置 叶子 节点 自 定 义 图 片 的 URL. 
€  PopulateNodesFromClient: 设置 是 否 将 数据 从 客户 端 传 回 给 服务 器 。 

TreeView 控件 的 主要 事件 有 : 
€  TreeNodeCheckChanged: TreeView 控件 的 复 选 框 更 改 状 态 时 触发 该 事件 。 

SelectedNodeChanged: 选中 TreeView 控件 的 节点 时 触发 该 事件 

TreeNodeExpanded: 展开 TreeView 控件 的 节点 时 触发 该 事件 。 

TreeNodeCollapsed: 合拢 TreeView 控件 的 节点 时 触发 该 事件 。 

TreeNodePopulate: 设置 PopulateOnDemand 属性 为 真 时 触发 该 事件 。 
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€  TreeNodeDataBound: 节点 与 数据 绑 定 时 触发 该 事件 。 
接 下 来 的 代码 演示 如 何 使 用 SiteMapDataSource 创建 TreeView。 
«$8 Page Language="VB" %> 
«html» 
«body» 
<form runat="server"> 
<h3>TreeView AutoGenerateBindings Example</h3> 


T 


<!-- Set the AutoGenerateBindings property 一 -> 
«1-- to false declaratively to allow for  --» 
«1-- the user-defined Bindings collection. --> 


<asp:TreeView id="SiteTreeView" 
DataSourceID-"SiteMapPath" 
AutoGenerateDataBindings-"False" 
runat="server"> 
<DataBindings> 
<asp:TreeNodeBinding TextField="title" NavigateUrlField="url"/> 
</DataBindings> 
</asp:TreeView> 
<asp:SiteMapDataSource ID-"SiteMapDataSource" runat="server"/> 
</form> 
</body> 
</html> 
(3) Menu 控件 。 该 控件 与 SiteMapDataSource 控件 配合 ， 提 供与 TreeView 相同 的 
数据 ， 不 同 的 是 Menu 控件 以 菜单 项 和 子 荣 单 的 方式 显示 。 
Menu 控件 有 以 下 特性 : 
允许 控件 的 呈 单 项 与 层次 数据 源 进行 数据 绑 定 。 
通过 与 SiteMapDataSource 控件 集成 来 实现 站 点 导航 。 
可 根据 Menu 对 象 模 型 动态 创建 菜单 、 沫 单项 目 以 及 设置 属性 等 。 
可 以 通过 主题 、 用 户 定义 的 图 片 、 风 格 和 用 户 定义 的 模板 来 定制 外 观 。 
Menu 控件 有 两 部 分 : 静态 菜单 和 动态 业 单 。 菜 单 的 静态 部 分 在 查看 网 页 时 总 是 显 
示 , 而 动态 沫 单 仅 当 用 户 与 菜单 进行 交互 时 才 显 示 。.Menu 控件 由 树 型 的 多 个 由 Menultem 
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对 象 表 示 的 菜单 项 目 (Menu items) 构 成 ,最 高 层次 的 菜单 项 目 叫做 根菜 单项 目 ， 拥 有 父 荣 


单项 目的 全 单项 目 叫做 子 菜 单项 目 。 所 有 的 根 荣 单项 目 都 保存 在 Items KEZ, TX 
单项 目 保存 在 父 菜单 项 目的 ChildItems 集合 之 中 。 
Menu 的 主要 属性 如 下 : 
€  DisapperAfter: 设置 当 光 标 不 再 葵 停 在 菜单 上 多 久之 后 动态 菜单 消失 。 
€ DynamicBottomSeparatorImageURL: 设置 动态 菜单 栏目 之 间 的 分 隔 符 的 底 周 


图 片 的 URL. 
€ DynamicEnableDefaultPopOutImage: 设置 有 子 菜单 的 菜单 项 的 内 置 图 片 是 否 
显示 o 


€  DynamicHorizontalOffset: 设置 动态 菜单 与 其 其 父 荣 单 的 相对 水 平 位 移 量 。 


€  DynaicHoverStyle: 设置 光标 悬 停 在 动态 菜单 上 时 的 样式 。 

€  DynamicltemFormatString: 设置 所 有 动态 显示 的 栏目 显示 时 要 显示 的 额外 的 文 
本 。 

€  DynamicltemTemplate: 设置 用 于 呈现 动态 菜单 的 自 定 义 内 容 的 模板 。 

€  DynamicMenultemStyle: 获取 用 于 设置 菜单 项 样式 的 MenultemStyel 对 象 的 一 
个 引用 。 


€ DynamicPopOutImageTextFormatString: 设置 用 于 表示 动态 菜单 有 子 菜 单 的 
BIRLE. 
€ Orientation: 获取 或 者 设置 Menu 控件 呈现 的 方向 。 
Menu 的 主要 的 方法 如 下 : 
€  DataBind: 绑 定 Menu 控件 的 数据 源 。 
€  Findltem: 获取 指定 值 路 径 的 Menu M H o 
€ Focus: 设置 输入 焦点 到 该 控件 。 
Menu 控件 的 主要 事件 如 下 : 
€  MenultemClick: 当 单 击 该 菜单 项 目 时 触发 该 事件 。 该 事件 通常 用 来 讲 该 Menu 
控件 与 页 面 其 他 控件 进行 同步 。 
€  MenultemDataBound: 当 菜 单项 目 与 数据 绑 定 时 触发 该 事件 。 该 事件 通常 用 来 
在 Menu 控件 提供 荣 单 项 目 之 前 调整 菜单 项 目 。 
下 面 的 代码 演示 如 何 创建 静态 菜单 项 目 。 


«$8 Page Language="VB" %> 


DS 


«html» 
<!-- For the hover styles of the Menu control to --> 
«!-- work correctly, you must include this head  ---» 
«1-— element. um 
«head runat="server"> 
«/head» 
«body» 


<form runat="server"> 
<h3>Menu Declarative Example</h3> 
«!-- Use declarative syntax to create the ==> 


pB 
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«!-- menu structure. Submenu items are c— 
<!—- created by nesting them in parent menu 一 一 > 
«1—- items. ==> 


<asp:menu id-"NavigationMenu" 


disappearafter="2000" 
staticdisplaylevels="2" 
staticsubmenuindent="10" 
orientation-"Vertical" 
font-names-"Arial" 
target-" blank" 
runat="server"> 


<staticmenuitemstyle backcolor-"LightSteelBlue" 
forecolor="Black"/> 

<statichoverstyle backcolor="LightSkyBlue"/> 

<dynamicmenuitemstyle backcolor="Black" 
forecolor="Silver"/> 

<dynamichoverstyle backcolor="LightSkyBlue" 
forecolor="Black"/> 


<items> 
<asp:menuitem navigateurl="Home.aspx" 
text="Home" 
tooltip="Home"> 
<asp:menuitem navigateurl="Music.aspx" 
text="Music" 
tooltip="Music"> 
<asp:menuitem navigateurl="Classical.aspx" 
text-"Classical" 
tooltip-"Classical"/» 
«asp:menuitem navigateurl-"Rock.aspx" 
text="Rock" 
tooltip="Rock"/> 


<asp:menuitem navigateurl="Jazz.aspx" 


text="Jazz" 


tooltip="Jazz"/> 
</asp:menuitem> 
<asp:menuitem navigateurl="Movies.aspx" 

text="Movies" 

tooltip="Movies"> 

<asp:menuitem navigateurl="Action.aspx" 
text="Action" 
tooltip="Action"/> 
<asp:menuitem navigateurl="Drama.aspx" 
text="Drama" 
tooltip="Drama"/> 


<asp:menuitem navigateurl="Musical.aspx" 
text-"Musical" 


tooltip-"Musical"/» 


5 开发 从 入 门 到 精 


通 


= 


«/asp:menuitem» 


</asp:menuitem> 
</items> 
</asp:menu> 
</form> 
</body> 
</html> 


将 Menu 控件 与 SiteMapDataSource 控件 绑 定 的 代码 如 下 所 示 : 


«$0 Page Language="VB" %> 


«html» 
«!-- For the hover styles of the Menu control to 一 -> 
«!-- work correctly, you must include this head  ---» 
<!-- element. m 
«head runat="server"> 
</head> 
<body> 


<form runat="server"> 


<h3>Menu DataBinding Example</h3> 


<!—- Bind the Menu control to a SiteMapDataSource control. 


<asp:menu id="NavigationMenu" 
disappearafter="2000" 
staticdisplaylevels="2" 
staticsubmenuindent="10" 
orientation="Vertical" 
font-names-"Arial" 
target="_blank" 
dat asourceid="MenuSource" 
runat="server"> 


<staticmenuitemstyle backcolor-"LightSteelBlue" 
forecolor="Black"/> 

<statichoverstyle backcolor="LightSkyBlue"/> 

<dynamicmenuitemstyle backcolor="Black" 
forecolor="Silver"/> 

<dynamichoverstyle backcolor="LightSkyBlue" 
forecolor="Black"/> 


</asp:menu> 


<asp:SiteMapDataSource id="MenuSource" runat="server"/> 


</form> 
</body> 
</html> 
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004. 4.6 登录 控件 组 


{Pp 


登录 是 一 个 动态 网 站 最 常见 的 功能 之 一 ,ASPNET 提供 


了 一 系列 的 控件 用 于 实 


现 用 户 的 登录 以 及 个 性 化 设置 。 有 了 这 些 控 件 ， 网 站 设计 者 只 需 实现 定义 好 的 接口 就 可 


以 做 出 功能 强大 的 登录 及 个 性 系统 。 下 面 对 这 些 控件 进行 简单 介绍 。 


(1) Login 控件 。ASPNET 包含 一 组 与 安全 性 有 关 的 控件 ， 统 称 为 Login 控件 。 
利用 Login 控件 , 无须 编 写 任何 代码 就 可 以 创建 标准 的 注册 、 登 录 和 密码 恢复 页 。 还 可 


以 使 用 Login 控件 根据 用 户 的 角色 和 当前 的 身份 验 记 


LoginView 控件 可 以 定义 不 同 的 模板 ， 将 其 显示 给 不 同 角 色 的 成 


Login 控件 充分 利 


了 提供 者 编程 模型 (Provider Program Model)。 如 果 已 经 将 应 用 


状态 显示 不 同 的 信息 ， 例 如 通过 


= 
员 。 


程序 配置 为 使 用 AccessMembershipProvider, JIS Login 控件 将 自动 查询 Microsoft 
Access 数据 库 来 检索 成 员 喘 份 信息 。 如 果 启 用 了 SqlMembershipProvider， 则 这 些 控件 


将 使 用 


使 


的 Web 配置 文件 或 者 通过 使 用 


mmj 
L3 


J Login 控件 之 前 ， 应 该 为 应 用 程序 启用 表单 身份 验证 。 
Web 站 点 管理 工具 来 启用 表单 身份 验证 。 


配置 的 SQL Server 数据 库 。 


可 以 通过 修改 应 用 程序 


Login 控件 的 外 观 完全 可 以 通过 模板 和 样式 的 设置 定制 。 所 有 的 界面 文本 信息 都 可 
以 通过 Login 类 的 属性 进行 设置 。 默 认 的 界面 文本 自动 基于 服务 器 的 本 地 设置 本 地 化 。 
Login 控件 的 主要 属性 如 下 : 


Q e 
-u . 
A5 e 
"OS e 
cr e 
CD e 
FS e 
c2 ° 
Hm í 


CreateUserUrl: 获取 或 者 设置 新 用 户 注册 页 面 的 URL. 


CreateUserIconUrl: 获取 或 设置 链接 到 新 用 户 注册 页 面 的 图 片 URL. 
CreateUserText: 获取 或 者 设置 用 于 链接 到 新 用 户 注册 页 面 的 链接 文本 。 


DestinationPageUrl: 获取 或 者 设置 当 登 录 成 功 时 显示 给 用 户 的 页 面 URL。 默 认 
g 


为 空 ， 即 将 用 户 重 定向 到 Default.aspx. 


DisplayRemeberMe: 设置 是 否 显示 “下 次 记 住 我 ” 复 选 框 以 便于 用 户 选 择 是 否 
将 一 个 持续 的 COOKIE 给 他 们 的 浏览 器 。Login 控件 包含 一 个 复 选 框 “ 下 次 记 
ER”, 如 果 用 户 登 录 时 选择 了 该 复 选 枉 ， 则 浏览 器 和 计算 机 重启 后 ， 仍 然 保 


持 登 录 状态 ， 否 则 需要 重新 登录 。 
FailureAction: 获取 或 者 设置 当 登 录 失 败 时 采取 的 行动 。 
FailureText: 获取 或 者 设置 登录 失败 时 显示 的 文本 。 
FailureTextStyle: 获取 登录 失败 显示 文本 的 样式 。 
HelpPageUrl: 获取 或 者 设置 登陆 帮助 页 面 的 URL. 
HelpPagelconUrl: 获取 或 设置 链接 到 登录 帮助 页 面 的 图 


HH URL. 


HelpPageText: 获取 或 者 设置 链接 到 登录 帮助 页 面 的 文本 。 


InstructionText: 获取 或 者 设置 登录 指示 文字 。 


LoginButtonImageUrl: 获取 登录 控件 中 登录 按钮 的 样式 。 


LoginButtonText: 获取 或 者 设置 登录 按钮 的 文本 。 
LoginButtonType: 获取 或 者 设置 登录 按钮 呈现 的 类 型 。 
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€  MembershipProvider : 获取 或 者 设置 登录 控件 使 用 的 MEMBERSHIP 


PROVIDER. 


€ Orientation: 获取 或 者 设置 Login 控件 中 的 元 素 摆 放 的 朝向 。 
€ Password: 获取 用 户 输入 的 密码 。 
€  PasswordLabelText: 获取 或 者 设置 Password 输入 框 的 标签 的 文本 。 
€  PasswordRecoverylconUrl: 获取 链接 到 找 回 密 码 页 面 的 图 片 的 地 址 。 
€  PasswordRecoveryText: 获取 或 者 设置 链接 到 找 回 密码 页 面 的 链接 文本 。 
€  PasswordRecoveryUrl: 获取 或 者 设置 找 回 密码 页 面 的 URL. 
€  PasswordRequiredErrorMessage: 获取 或 者 设置 在 ValidationSummary 控件 中 显 
示 的 密码 错误 信息 。 
€  RemeberMeSet: 获取 或 者 设置 是 否 发 送 一 个 持续 认证 的 COOKIE 到 用 户 的 浏 
VLAS o 
€  RememberMeText: 获取 或 者 设置 用 于 “Remember Me” 复 选 框 的 文本 。 
©  TileText: 获取 或 者 设置 Login 控件 的 标题 。 
€  UserName: 获取 用 户 输入 的 用 户 名 。 
€  UserNameLabelText: 获取 或 者 设置 UserName 输入 框 的 标签 的 文本 。 
€  UserNameRequiredErrorMessage: 获取 或 者 设置 在 ValidationSummary 控件 中 显 
示 的 如 用 户 名 错误 信息 。 
€  VisibleWhenLoggedIn: 设置 当 用 户 登录 成 功 以 后 是 和 否 还 显示 Login 控件 。 第 
Login 控件 的 主要 事件 如 下 : " 
€ Authenticate: 认证 用 户 时 触发 该 事件 。 
€ Loggedin: 当 用 户 成 功 登 录 时 触发 该 事件 。 » 
€  LoginEmor: 当 检 测 到 用 户 登录 失败 时 触发 该 事件 。 S 
使 用 Login 控件 实现 用 户 登 录 界 面 的 代码 如 下 所 示 。 £ 
«$8 Page Language="VB" $» 只 
«$0 Import Namespace-"System.ComponentModel" %> a 
<!DOCTYPE html PUBLIC  "-//W3C//DTD XHTML 1.0 #£Transitional//EN" ^ 


"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 


<SCRIPT runat="server"> 
Private Function IsValidEmail (ByVal strlIn As String) As Boolean 

' Return true if strIn is in valid e-mail format. 

Return Regex.IsMatch(strIn, 
"^([Nw-N.] ) @((\[ [0-9] (1,3) V. [0-9] (1,3) V. [0-9] (1,3) N.) | ((1\w-1+\.)+)) (Lan 
zA-2](2,4) | [0-91 (1,3)) (X12) $") 

End Function 


Private Sub OnLoggingIn (ByVal sender As Object, ByVal e As 
System.Web.UI.WebControls.LoginCancelEventArgs) 
If Not IsValidEmail(Loginl.UserName) Then 
Loginl.InstructionText - "Enter a valid e-mail address." 


e.Cancel - True 
Else 
Loginl.InstructionText - [String].Empty 
End If 
End Sub 
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Loginl.InstructionTextStyle.ForeColor 
System.Drawing.Color.RosyBrown 


= 


Private Sub OnLoginError (ByVal sender As Object, ByVal e As EventArgs) 
Loginl.HelpPageText = "Help with logging in..." 
Loginl.PasswordRecoveryText = "Forgot your password?" 


End Sub 
</SCRIPT> 


<HTML> 
<BODY> 


<FORM runat="server"> 


<asp:Login id="Loginl" runat="server" 


</BODY> 
</HTML> 


BorderStyle="Solid" 
BackColor="#F7F7DE" 
BorderWidth="1px" 
BorderColor="#CCCC99" 
Font-Size-"10pt" 
Font-Names-"Verdana" 
CreateUserText="Create a new user..." 
CreateUserUrl="newUser.aspx" 
HelpPageUrl-"help.aspx" 
PasswordRecoveryUrl-"getPass.aspx" 
UserNameLabelText-"E-mail address:" 
OnLoggingIn-OnLoggingIn 


OnLoginError-OnLoginError > 

<TitleTextStyle Font-Bold-"True" 
ForeColor="#FFFFFE" 
BackColor="#6B696B"> 

</TitleTextStyle> 


</asp:Login> 


</FORM> 


由 于 篇 由 


台所 限 ， 本 节 只 简要 介绍 了 Login 控件 的 常用 属性 和 方法 , 如 果 读 者 有 兴趣 ， 


f 
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3 H fij 
可 以 参阅 MSDN 中 的 详细 介绍 。 
(2) LoginView 控件 。 基 于 用 户 的 角色 来 为 不 同 的 用 户 显 示 不 同 的 内 容 模板 。 一 旦 
将 模板 分 配 至 LoginView 类 的 三 种 模板 属性 ，LoginView 控件 将 自动 在 不 同 的 模板 间 切 


€  AnonymousTemplate: 获取 或 者 设置 显示 给 匿名 用 户 的 模板 。 
£ 


€ LoggedInTemplate: 获取 或 者 设置 登录 成 功 且 不 是 RoleGroups 属性 指定 的 角色 


组 成 员 时 显示 的 模板 。 
€  RolesGroups: 获取 和 内 容 模板 相关 联 的 特定 角色 的 角色 组 的 集合 。 


LoginView 控件 的 主要 事件 如 下 : 
€  ViewChanged: 当 视 图 改变 时 触发 该 事件 。 
€  ViewChanging: 在 视图 改变 之 前 触发 该 寻 
下 面 的 代码 将 演示 如 何 设置 三 个 模板 。 
«$8 Page Language="VB" $» 
«!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 


y 


去 


prn 
=> 
+ 
$ 


<SCRIPT runat="server"> 
</SCRIPT> 


<HTML> 
<BODY> 
<FORM runat="server"> 
<P> 
<asp:LoginStatus id="LoginStatus1" 
runat="server"></asp:LoginStatus></P> 
<P> 
<asp:LoginView id="LoginViewl" runat="server"> 
<AnonymousTemplate> 
Please log in for personalized information. 
</AnonymousTemplate> 
«LoggedInTemplate» 
Thanks for logging in 
«asp: LoginName id="LoginNamel" 
runat="Server"></asp:LoginName>. 
«/LoggedInTemplate» 
<RoleGroups> 
<asp:RoleGroup Roles="Admin"> 
<ContentTemplate> 
<asp: LoginName id="LoginName2" 
runat="Server"></asp:LoginName>, you 


are logged in as an administrator. 


«/ContentTemplate» 
«/asp:RoleGroup» 
</RoleGroups> 
</asp:LoginView></P> 
</FORM> 
</BODY> 
</HTML> 


(3) PasswordRecovery 控件 。 提 供 恢复 或 修改 密码 ， 并 以 Email 式 通 知 用 户 的 用 
户 界面 。 该 控件 有 助 于 用 户 确 认 遗 忘 E 首先 ， 用 户 必须 输入 登录 名 


称 ， 然 后 输入 框 中 就 会 显示 问题 。 如 果 用 户 回 答 正确 ， 原 有 的 密码 或 者 新 创建 的 密码 就 
会 发 送 到 指定 的 地 址 。 


ik p 
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PasswordRecovery 控件 的 主要 属性 如 1 


En 
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PasswordRecovery 控件 拥有 以 下 三 种 状态 : 


j 户 名 视图 


(UserName view): ifj 


问 用 户 注册 的 用 户 名 。 


(Question view): 要 求 


成 功 视 图 (Success view): 通知 | 


Answer: 获取 密码 找 回 问题 的 答 


j 户 密 但 已 经 成 功 恢复 或 重 置 。 


7i 


AnswerLabelText: 设置 输入 密码 


AnswerRequiredErrorMessage: 设置 


误 时 提示 的 信息 。 


HelpPagelconUrl、 HelpPageText、HelpPageUrl、InstructionTextStyle、LabelStyle 


保护 答 案 输入 框 的 标签 文本 。 


T 


的 属性 和 Login 控件 的 一 样 ， 不 再 一 一 叙述 。 


j 户 提供 存储 的 问题 的 答案 以 重 置 密码 。 


户 输入 密码 保护 答案 为 空 时 的 错误 信息 。 
GeneralFailureText: 设置 PasswordRecovery 控件 的 Membership Provider 发 生 错 


MailDefinition: 获取 发 送 新 密码 或 者 恢复 密码 邮件 信息 的 属性 定义 的 集合 。 


Question: 获取 上 


户 在 网 站 建立 的 密码 保护 问题 。 


n> 


QuestionFailureText: 设置 


不 一 致 时 提示 的 错误 信息 。 


QuestionInstructionText: 设置 在 Question 视图 中 给 ) 


QuestionLabelText: 设置 Question 文本 框 的 标签 


QuestionTemplate: 设置 Question 


QuestionTitleText: 设置 PasswordRecovery 控件 Question 视图 


视图 使 用 的 模板 。 


JP Idm A 


] 户 输入 密码 保护 答案 和 网 站 上 存储 的 密码 保护 答案 


的 标题 。 


SubmitButtonImageUrl、 SubmitButtonStyle、 SubmitButtonText、 SubmitButtonType 


于 设置 提交 按钮 的 相关 属性 。 


— 


SuccessPageUrl SuccessTemplate ~ SuccessTemplateContainer ~ SuccessText 、 


SuccessTextStyle | 


于 设置 登录 成 功 的 相关 属性 。 


PasswordRecovery 控件 的 主要 事件 如 下 : 


AnswerLookupError: 当 用 户 输入 的 密码 


SendingMail: 在 发 送 密 码 邮 件 之 前 触发 该 事件 。 
SendMailError: 通过 SMTP 邮件 系统 发 送 邮 件 失 败 时 触发 该 事件 。 


UserLookupError: 当 Membership Provider 找 不 到 ) 


件 。 


] 户 输入 的 | 


VerifyingAnswer: 当 答 案 提 交 以 后 触发 该 事件 。 


UserName: 设置 在 用 户 名 文本 框 里 的 用 户 名 。 

UserNameFailureText: 设置 用 户 名 不 是 有 效 的 用 户 名 时 显示 的 信息 。 
UserNamelnstructionText: 设置 UserName 视图 中 用 于 指示 用 户 输入 | 
A X. 

UserNameLabelText: 设置 用 户 名 文本 框 的 标签 文本 。 
UserNameRequiredErrorMessage: 没有 输入 用 户 名 时 的 错误 提示 信息 。 
UserNameTitleText: 设置 UserName 视图 的 标题 。 


IP alte 


各 护 答案 和 问题 不 符合 时 触发 该 事件 。 


] 户 名 时 触发 该 


pun 


€  VeryfyingUser: 在 membership provider 查询 用 户 之 前 触发 该 事件 。 


下 面 的 代码 将 演示 如 何 使 用 PasswordRecovery 控件 。 
«$0 Page Language-"VB" $» 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 


uL 


<SCRIPT runat="server"> 


:设置 如 果 没 有 找到 用 户 名 时 标签 的 字体 颜色 
Private Sub PasswordRecoveryl UserLookupError(ByVal sender As Object, ByVal 
e As System.EventArgs) 


PasswordRecoveryl.LabelStyle.ForeColor = System.Drawing.Color.Red 
End Sub 


' 重 置 字 体 颜 色 
Private Sub PasswordRecoveryl Load(ByVal sender As Object, ByVal e As 
System.EventArgs) 


PasswordRecoveryl.LabelStyle.ForeColor = System.Drawing.Color.Black 
End Sub 


</SCRIPT> 


<HTML> 
<BODY> 
<FORM runat="server"> 
<asp:PasswordRecovery id="PasswordRecoveryl" runat="server" 
BorderStyle-"Solid" BorderWidth="1px" BackColor="#F7F7DE" 
Font-Size-"10pt" Font-Names-"Verdana" BorderColor="#CCCC99" 
HelpPageText-"Need help?" HelpPageUrl-recoveryHelp.aspx 
onuserlookuperror-"PasswordRecoveryl UserLookupError" 
onload-"PasswordRecoveryl Load" » 
<successtemplate> 
<table border="0" style-"font-size:10pt;"» 
<tr> 
<td>Your password has been sent to you.</td> 
X EIE 
«/table» 
«/successtemplate» 
«titletextstyle font-bold-2"True" forecolor="White" 
backcolor="#6B696B"> 
</titletextstyle> 
</asp:PasswordRecovery> 


</FORM> 
</BODY> 
</HTML> 


(4) LoginStatus 控件 。 用 于 验证 用 户 的 身份 状态 ， 并 根据 身份 验证 得 出 的 身份 来 
显示 登录 或 者 注销 链接 。 
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LoginStatus 控件 的 主要 属性 如 下 : 


€ LoginImageURL、LoginText: 获取 或 者 设置 与 登录 链接 的 图 像 URL 和 文本 。 


€  LogoutAction: 获取 或 者 设置 用 户 通过 LoginStatus 控件 登 出 时 采取 的 动作 
€ LogoutImageUrl, LogoutPageUrl, LogoutText: 获取 或 者 设置 登 出 链接 的 
URL、 页 面 URL 和 文本 。 
LoginStatus 控件 的 主要 事件 如 下 : 
€ LoggedOut: 当 用 户 单 击 登 出 链接 并 且 登 出 过 程 已 经 完成 之 后 触发 该 事件 。 
€  LoggingOut: 用 户 单 击 登 出 按钮 时 触发 该 事件 。 
(5) LoginName 控件 。 用 来 显示 登录 用 户 的 姓名 。 如 果 用 户 未 通过 身份 验证 


o 


图 片 


， 则 


(6) CreateUserWizard 控件 。 提供 注 册 新 用 户 的 用 户 界面 ,允许 用 户 创 建新 的 账户 。 


EE 


e 如果 AutoGeneratePassword 设置 为 True， 则 创建 密码 。 
© 在 MembershipProvider 表现 的 数据 存储 中 创建 用 户 。 
e 如果 DisableCreateUser 属性 设置 为 ttue， 则 在 存储 中 禁用 该 用 户 。 


CreateUseWizard 控件 的 属性 通过 文本 框 表 示 , 例如 UserName 和 Password. fH 


使 用 该 控件 创建 用 户 时 , 该 控件 与 MembershipProvider 交互 , 按 顺 序 完 成 以 下 任务 : 


可 以 


通过 样式 和 模板 的 使 用 来 改变 该 控件 的 外 观 。 设 置 该 控件 对 应 的 属性 并 添加 相应 的 
即 可 完成 创建 用 户 的 过 程 。 


p 


下 面 的 代码 将 演示 如 何 使 用 CreateUserWizard 控件 。 


«$8 page language="VB"%> 
«html» 
«head runat="server"> 


«title»CreateUserWizard Sample</title> 


«/head» 
«body» 


«form id-"forml" runat="server"> 
«div» 
«asp:createuserwizard id-"Createuserwizardl" runat="server"> 
«wizardsteps» 


事件 


<asp:createuserwizardstep runat="server" title-"Sign Up for Your New 


Account"» 


<contenttemplate> 
<table border="0"> 
<tr> 
<td> 
<table border="0" style="height: 100%; width: 100%;"> 
«tr» 


«td align="center" colspan="2"> 


Sign Up for Your New Account</td> 
</tr> 
SETS 
<td align="right"> 
<asp:label runat="server" 


associatedcontrolid-"UserName" id="UserNameLabel">User Name:</asp:label> 
</td> 


<td> 
<asp:textbox runat="server" 
id="UserName"></asp:textbox> 
<asp:requiredfieldvalidator runat="server" 
controltovalidate="UserName" tooltip="User Name is required." 
id="UserNameRequired" 
validationgroup="Createuserwizardl" errormessage="User Name is required."> 
*«/asp:requiredfieldvalidator» 
«/td» 
«/tr» 
QUEE 
<td align="right"> 
<asp:label runat="server" 
associatedcontrolid="Password" id="PasswordLabel"> 
Password: </asp: label></td> 
<td> 
<asp:textbox runat="server" textmode="Password" 
id="Password"></asp:textbox> 
«asp:requiredfieldvalidator runat-"server" 
controltovalidate-"Password" tooltip-"Password is required." 
id="PasswordRequired" 
validationgroup="Createuserwizardl" errormessage="Password is required."> 
*</asp:requiredfieldvalidator> 
</td> 
</tr> 
Sata 
<td align="right"> 
<asp:label runat="server" 
associatedcontrolid-"ConfirmPassword" id="ConfirmPasswordLabel"> 
Confirm Password: </asp:label></td> 
<td> 
<asp:textbox runat="server" textmode="Password" 
id="ConfirmPassword"></asp:textbox> 
<asp:requiredfieldvalidator runat="server" 
controltovalidate="ConfirmPassword" tooltip="Confirm Password is required." 
id="ConfirmPasswordRequired" 
validationgroup-"Createuserwizardl" errormessage-"Confirm Password is 
required."» 
*«/asp:requiredfieldvalidator» 
«/td» 
«/tr» 
LETA 
«td align="right"> 


«asp:label runat="server" associatedcontrolid-"Email" 


id="EmailLabel"> 


Email:</asp:label></td> 
<td> 
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<asp:textbox runat="server" id="Email"></asp:textbox> 


<asp:requiredfieldvalidator runat="server" 


controltovalidate="Email" tooltip="Email is required." 
id="EmailRequired" 

validationgroup="Createuserwizardl" errormessage-"Email is required."> 
*«/asp:requiredfieldvalidator» 


«/td» 
«/tr» 
SEES 
<td align="right"> 
<asp:label runat="server" 


associatedcontrolid-"Question" id="QuestionLabel"> 
Security Question:</asp:label></td> 
<td> 
<asp:textbox runat="server" 
id="Question"></asp:textbox> 
«asp:requiredfieldvalidator runat="server" 
controltovalidate-"Question" tooltip="Security question is required." 
id="QuestionRequired" 
validationgroup-"Createuserwizardl" errormessage="Security question is 
required."> 
*</asp:requiredfieldvalidator> 


</td> 
</tr> 
LED 
<td align="right"> 
<asp:label runat="server" 


associatedcontrolid="Answer" id="AnswerLabel"> 
Security Answer:</asp:label></td> 
<td> 
<asp:textbox runat="server" 
id="Answer"></asp:textbox> 
«asp:requiredfieldvalidator runat-"server" 
controltovalidate-"Answer" tooltip-"Security answer is required." 
id-"AnswerRequired" 
validationgroup-"Createuserwizardl" errormessage-"Security answer is 
required."» 
*«/asp:requiredfieldvalidator» 
«/td» 
«/tr» 
SEES 
<td align="center" colspan="2"> 
<asp:comparevalidator runat="server" 
display="Dynamic" errormessage="The Password and Confirmation Password must 
maeTn, Y 
controltocompare="ConfirmPassword" 
controltovalidate="Password" id="PasswordCompare" 
validationgroup-"Createuserwizardl"» 


«/asp:comparevalidator» 


«/td» 
«/tr» 
KET 


<td align="center" colspan="2" style="color: Red; "> 


<asp:literal runat="server" enableviewstate="False" 
id="FailureText"> 


</asp:literal> 
</td> 
</tr> 

</table> 

</td> 
</tr> 
</table> 
</contenttemplate> 
«/asp:createuserwizardstep» 


«asp:completewizardstep runat-"server" title-"Complete"» 


<contenttemplate> 
<table border="0"> 
Ec 
«td» 
«table border="0" style="height: 100%; width: 100%;"> 
<a 


<td align="center" colspan="2"> 
Complete</td> 
</tr> 
SS 
«td» 
Your account has been successfully created.«/td» 
«/tr» 
SELA 
<td align="right" colspan="2"> 
<asp:button runat="server" 
validationgroup-"Createuserwizardl" commandname-"Continue" 
id-"ContinueButton" causesvalidation-"False" 
text-"Continue" /» 
«/td» 
«/tr» 
«/table» 
«/td» 
AES 
«/table» 
</contenttemplate> 


«/asp:completewizardstep» 
«/wizardsteps» 
«/asp:createuserwizard» 
«/div» 
«/form» 
«/body» 
«/html» 
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C7) ChangePasword 控件 。 用 于 改变 用 户 的 密码 。ChangePassword 控件 使 用 户 可 以 
执行 以 下 操作 : 


e 如 采 登 录 则 可 以 更 改 密码 。 
e 如果 页 面包 含 匿名 用 户 可 以 访问 的 ChangePassword 控件 并 且 DisplayUserName 
属性 为 tue， 则 不 登录 也 可 以 更 改 密码 。 
e 如果 DisplayUserName 属性 为 True 的 话 ， 也 可 以 更 改 其 他 用 户 的 密码 。 
下 面 的 代码 将 演示 如 何 使 用 ChangePassword 控件 。 
«$0 page language="VB"%> 
«html» 
«head runat="server"> 
«title»Change Password with Validation</title> 
</head> 
<body> 
«form id-"forml" runat="server"> 
«div» 
«asp:changepassword id-"ChangePasswordl" runat-"server" 


PasswordHintText = 
"Please enter a password at least 7 characters long, 
containing a number and one special character." 
NewPasswordRegularExpression - 
"NV (R= 175 (= wey {Ll I) (go (oe wn) s p) " 
NewPasswordRegularExpressionErrorMessage = 
"Error: Your password must be at least 7 characters long, 
and contain at least one number and one special character. 
«/asp:changepassword» 
«/div» 
«/form» 
«/body» 
«/html» 


M 


(14.4.7 其 他 常用 控件 


(1) ImageMap 控件 。 是 一 个 可 以 用 来 在 图 片上 定义 热点 (HotSpot) 区 域 的 服务 器 
空 件 。 用 户 可 以 通过 单 击 这 些 热点 区 域 进行 回 发 (PostBack) 操作 或 者 定向 (Navigate) 
到 某 个 URL 位 址 ,该 控件 一 般 在 需要 对 某 张 图 片 的 局 部 范围 进行 互动 操作 时 使 用 主要 属 
性 如 下 : 

€  HotSpotMode: 热点 模式 ， 选 项 如 表 4-18 所 示 。 
€ HotSpots: 是 一 个 抽象 类 , 它 之 下 有 CircleHotSpot [EA si) . RectangleHotSpot 

(方形 热点 ) 和 PolygonHotSpot〈 多 边 形 热点 ) 三 个 子 类 。 
表 4-18 HotSpotMode 枚 举 类 型 


选项 说 明 
NotSet 未 设置 项 。 默 认 情 况 下 会 执行 定向 操作 ， 定 向 到 指定 的 URL。 如 果 未 指定 URL， 则 
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按 默 认 将 定向 到 自己 的 Web 应 用 程序 根 目录 
Navigate 定向 到 指定 的 URL 
PostBack 回 发 操作 项 。 单 击 热点 区 域 后 ， 将 执行 后 部 的 Click 事件 
Inactive 无 任何 操作 ， 即 此 时 形 同 一 张 没 有 热点 区 域 的 普通 图 片 


€ Target: 用 于 设置 当 单 击 ImageMap 控件 时 ， 显 示 Web 页 面 的 目标 窗 体 或 者 框 


该 控件 主要 事件 : 


€ Click: 对 热点 区 域 的 单 击 操作 。 通 常 在 HotSpotMode X PostBack 时 用 到 。 


€ Load: 当 控 件 载 入 到 页 面 时 发 生 该 事件 。 通 常 ) 
设置 多 利 


下 面 的 程序 展示 如 何在 Web 窗 体 ， 
«$0 Page Language-"VB" $» 
«html » 
«head runat="server"> 
«title»Untitled Page</title> 
</head> 
<body> 
«form id-"forml" 
«div» 


runat-"server"» 


] 于 初始 化 控件 。 
P HotSpotMode. 


«h3»«font face="Verdana">ImageMap 多 种 HotSpotMode 例 程 </font></h3> 


«asp: imagemap 
alternatetext-"Navigate buttons" 
runat="Server"> 


<asp:RectangleHot Spot 
NavigateUrl="navigatel.htm" 

alternatetext="Button 1" 
Teale fone lS) sys) 

</asp:RectangleHotSpot> 


<asp:RectangleHot Spot 
NavigateUrl="navigate2.htm" 

alternatetext="Button 2" 
vail AGIS 

</asp:RectangleHotSpot> 


«asp:RectangleHotSpot 
NavigateUrl-"navigate3.htm" 

alternatetext-"Button 3" 
ae le We 

</asp:RectangleHotSpot> 


</asp:imagemap> 
</div> 
</form> 
</body> 


id="Buttons" 


top-"30" 
top-"155" 
top-"285" 


imageurl="hotspot. 


jpg" 


hotspotmode="Navigate" 


Jeter 


bottom-"110" 


hotspotmode-"Navigate" 


leu 75 


bottom-"240" 


hotspotmode-"Navigate" 


lest yeu 


bottom-"365" 
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«/html» 

下 面 的 程序 展示 了 ImageMap 的 PostBack 模型 。 
«$8 Page Language="VB" %> 
<script runat="server"> 


Private Sub Buttons Clicked(ByVal sender As 
ImageMapEventArgs) 
labell.Text = e.PostBackValue + " clicked!" 
End Sub 
«/script» 
<html > 


<head runat="server"> 
<title>Untitled Page</title> 
</head> 
<body> 
<form id="formi" 
<div> 
<h3> 


runat="server"> 


ASP.NET 4.0 与 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


= 


Object, ByVal e As 


«font face="Verdana">ImageMap PostBack 模型 例 程 </font></h3> 


«asp: imagemap id-"Buttons" 
alternatetext-"Navigate buttons" 
hotspotmode-"Postback" 
runat="Server"> 
<asp:RectangleHotSpot 
postbackvalue-"Buttonl" 


alternatetext-"Button 1" top="30" 
right="355"> 

</asp:RectangleHotSpot> 

<asp:RectangleHot Spot 
postbackvalue="Button2" 

alternatetext="Button 2" top="155" 
right="355"> 

</asp:RectangleHotSpot> 

<asp:RectangleHot Spot 
postbackvalue="Button3" 

alternatetext="Button 3" top="285" 
Teste foe Ss ss 

«/asp:RectangleHotSpot» 

<asp:RectangleHot Spot 
postbackvalue="Background" 

alternatetext="Background" top="0" 
right="540"> 

</asp:RectangleHotSpot> 


«/asp:imagemap» 
«p» 
<h3> 
<font face="verdana"> 


imageurl="hotspot. jpg" 


onclick="Buttons_Clicked" 


hotspotmode="Postback" 


ee om 


hotspotmode-"Postback" 


Ee lexico AAO 


hotspotmode-"Postback" 


ce LPS Seien" 5/65)" 


hotspotmode-"Postback" 


eRe Or leon onm SSO)! 


<asp:Label ID-"labell" runat-"server"»«/asp:Label» 
«/font» 
«/h3» 


</p> 
</div> 
</form> 
</body> 
</html> 


(2) HiddenField 控件 。 该 控件 允许 在 页 面 的 HTML 源 代码 中 使 用 隐藏 的 字段 ， 它 


一 般 不 被 浏览 器 显示 ， 多 用 于 储存 隐藏 的 数据 。 
该 控件 主要 属性 有 Value， 表 示 该 隐藏 字段 的 值 。 默 认为 空 字符 串 ("")。 


\ iE: | 


SS) 这 里 的 Hidden fe Visible 的 false 要 区 别 开 来 。Visible HAH false 


时 ， 表 示 在 Render 时 不 呈现 该 控件 。 
该 控件 主要 事件 有 ValueChanged， 当 HiddenField 控件 的 值 更 改 并 Post 回 服务 器 时 
触发 该 事件 。HiddenField 控件 的 VauleChange 事件 如 下 : 


«$0 Page language-"VB" %> 
<script runat="server"> 
Private Sub ValueHiddenField_ValueChanged (ByVal sender As Object, ByVal e As 
EventArgs) 
' Display the value of the HiddenField control. 
Message.Text = "The value of the HiddenField control is " + 
ValueHiddenField.Value + "." 
End Sub 
«/script» 


«html» 
«body» 
<form id-"Forml" runat="server"> 
<h3>HiddenField Example</h3> 
Please enter a value and click the submit button.<br/> 
<asp:Textbox id-"ValueTextBox" runat-"server"/» 


全 

«input type-"submit" name-"SubmitButton" value="Submit" 
onclick-"PageLoad()" /> 

<br/> 

<asp:label id="Message" runat="server"/> 

<asp:hiddenfield id="ValueHiddenField" 
onvaluechanged="ValueHiddenField_ValueChanged" value="" 
runat="server"/> 

</form> 
</body> 


</html> 


<script language="vbscript"> 
«1-- 


Private Function PageLoad() As [function] 

Set the value of the HiddenField control with the 
value from the TextBox. 

Forml.ValueHiddenField.value - Forml.ValueTextBox.value 
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End Function 


--> 
</script> 
(3) FileUpload 控件 。 该 控件 用 于 上 传 文件 ， 主 要 属性 如 下 : 
e FileBytes: 使 用 该 属性 得 到 字 节 序列 格式 的 上 传 文件 内 容 。 
@  FileContent: 使 用 该 属性 得 到 流 对 象 格式 的 上 传 文件 内 容 。 
© HasFile: 提交 时 该 控件 是 否 包含 文件 。 
e 
e 


A 


TH 


PostedFile: 获取 上 传 的 文件 。 
FileName: 客户 端 上 传 给 FleUpload 控件 的 文件 名 ， 不 包含 该 文件 在 客户 端的 
路 径 。 
\ is: 
SP 为 了 防止 某 些 恶意 的 使 用 FileUpload 上 传 而 产生 的 DOS Ke, GHRE 
最 大 允许 的 大 小 和 允许 的 类 型 。 默 认 的 大 小 是 4096KB ( 4MB ) ， 通 过 修改 Web. Config 
文件 中 maxRequestLength 来 设置 整个 应 用 程序 中 允许 上 传 得 大 小 。 另 外 在 location 
元 素 中 设置 maxRequestLength 可 以 设置 特定 的 页 面 允 许 上 传 的 文件 的 大 小 。 如 果 上 
传 的 文件 超过 规定 大 小 会 出 现 错误 提示 信息 : aspnet_wp.exe (PID: 1520) was 
recycled because memory consumption exceeded 460 MB (60 percent of available 
RAM) . 
该 控件 常用 的 方法 是 SaveAs， 用 于 将 文件 保存 在 服务 器 上 指定 的 位 置 ， 保 存 之 前 需 
要 确定 ASP.NET 应 用 对 该 文件 有 写 的 权限 ,下面 的 代码 演示 如 何 创 建 FleUpload 控件 来 
采 存 文件 到 指定 位 置 。 


«$0 Page Language-"VB" $» 


T 


<script runat="server"> 
Protected Sub UploadButton_Click (ByVal sender As Object, ByVal e As EventArgs) 
， 指定 要 保存 的 位 置 


Dim savePath As String = "c:\temp\uploads\" 


' 在 上 传 之 前 ， 首 先 要 确定 是 否 有 文件 上 传 . 

If FileUploadl.HasFile Then 
， 获取 上 传 文件 的 名 字 
Dim fileName As String = FileUploadl.FileName 
， 将 文件 名 添加 在 上 传 位 置 的 后 面 


savePath += fileName 


' 调用 saveAs 方法 将 文件 上 传 到 指定 路 径 
， 本 例 中 没有 演示 错误 检查 

， 如果 文件 有 重 名 的 话 ， 会 覆盖 该 文件 
FileUploadl.SaveAs (savePath) 


' 通知 用 户 已 经 保存 了 文件 以 及 保存 的 文件 名 


UploadStatusLabel.Text = "Your file was saved as " + fileName 


， 通知 用 户 上 传 失败 


UploadStatusLabel.Text = "You did not specify a file to upload." 


End Sub 
«/script» 


«html xmlns-"http://www.w3.org/1999/xhtml" > 
«head runat="server"> 

«title»FileUpload Example</title> 
</head> 
<body> 

<form id="forml" runat="server"> 

<div> 

<h4>Select a file to upload:</h4> 


<asp:FileUpload id="FileUpload1i" runat="server"> 

</asp:FileUpload> 

<asp:Button id="UploadButton" Text="Upload file" 
OnClick="UploadButton Click" runat="server"> 

</asp:Button> 


A Jm 


«asp:Label id-"UploadStatusLabel" runat="server"> 
«/asp: Label» 
«/div» 
«/form» 
«/body» 
«/html» 


下 面 的 代码 演示 如 何 上 传 文件 到 应 用 程序 。 
«$0 Page Language="VB" %> 
«html» 
«head» 


<script runat="server"> 


Protected Sub UploadButton_Click (ByVal Sender As Object, ByVal e As 
System.EventArgs) 


Dim saveDir As String = 
' 获 取 当 前 应 用 程序 的 物理 路 径 
Dim appPath As String = Request.PhysicalApplicationPath () 
' 在 上 传 之 前 先 检查 是 否 有 文件 
If FileUploadl.HasFile Then 
Dim savePath As String = appPath + saveDir + FileUploadl.FileName 
FileUploadl.SaveAs (savePath) 


"\Uploads\" 


UploadStatusLabel.Text = "Your file was uploaded successfully." 
Else 
UploadStatusLabel.Text = "You did not specify a file to upload." 
End If 
End Sub 


</script> 
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= 


</head> 
<body> 
<h3> 
FileUpload Class Example: Save To Application Directory</h3> 
<form id="Forml" runat="server"> 
<h4> 
Select a file to upload:</h4> 
«asp:FileUpload ID="FileUpload1" runat="server"></asp:FileUpload> 
<br> 
<br> 
<asp:Button ID="UploadButton" Text="Upload file" 
OnClick="UploadButton_Click" runat="server"> 
</asp:Button> 
<hr /> 
<asp:Label ID="UploadStatusLabel" runat="server"> 
</asp:Label> 
</form> 
</body> 
</html> 
如 下 代码 演示 如 何 使 用 ContentLength 属性 来 确认 文件 大 小 。 
«$0 Page Language-"VB" $» 
«html» 
«head» 
<script runat="server"> 
Protected Sub UploadButton_Click (ByVal Sender As Object, ByVal e As 
System.EventArgs) 


Dim savePath As String = "c:\temp\uploads\" 
If FileUploadl.HasFile Then 
' 获 取 上 传 文件 的 字 节 数 


Dim fileSize As Integer = FileUploadl.PostedFile.ContentLength 
' 只 允许 小 于 5100000 字 节 的 文件 上 传 
If fileSize < 5100000 Then 

savePath += FileUploadl.FileName 

FileUploadl.SaveAs (savePath) 


UploadStatusLabel.Text = "Your file was uploaded successfully." 
C Else 
= UploadStatusLabel.Text = "Your file was not uploaded because it 
" & Chr(13) & "" & Chr(10) & "exceeds the 5 MB size limit." 

je End If 
oO Else 
cr UploadStatusLabel.Text = "You did not specify a file to upload." 
rq) End If 
M End Sub 

«/script» 
Co </head> 
EP «body» 

<h3> 


FileUpload Class Example: Save To Application Directory</h3> 


«form id-"Form1" runat="server"> 
<h4> 


«/html 
(4) Wizard 控件 。 可 以 在 视图 之 间 自 动 切换 。 使 用 该 控件 默认 只 有 两 步 : 第 一 步 
指定 用 户 名 ， 第 二 步 再 次 显示 输入 的 文本 。 所 有 的 元 素 都 可 以 看 作 是 默认 的 ， 并 且 


Select a file to upload:</h4> 


«asp:FileUpload ID-"FileUploadl" runat="server"></asp:FileUpload> 
«br» 
«br» 
<asp:Button ID="UploadButton" Text="Upload file" 
OnClick="UploadButton_Click" runat="server"> 
</asp:Button> 
<hr /> 
<asp:Label ID="UploadStatusLabel" runat="server"> 
</asp:Label> 

</form> 
</body> 


> 


通过 样式 来 调整 ， 或 用 模板 单独 进行 格式 化 。 


可 以 
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该 控件 的 主要 字段 有 : 

€  CancelCommandName: 获取 Cancle 按钮 的 命令 名 称 ， 只 读 字 段 。 

€  MoveCompleteCommandName: 获取 Finish 按钮 的 命令 名 称 ， 只 读 字段 。 

€  MoveNextCommandName: 获取 Next 按钮 的 命令 名 称 ， 只 读 字段 。 

€  MovePrevioisCommandName: 获取 Previois 按钮 的 命令 名 称 ， 只 读 字 上 段 。 

€  MoveToCommandName: 获取 每 一 个 sidebar 按钮 的 命令 名 称 ， 只 读 字段 。 

该 控件 的 主要 属性 : 

€  AcüveStep: 获取 当前 显示 给 用 户 的 WizardSteps 集合 中 的 Step. 

€ ActiveStepIndex: 获取 或 者 设置 当前 WizardStepBase 对 象 的 索引 。 

€ CancleButtonImageURL: 设置 Cancle 按钮 的 图 片 URL. 

€ CancleButtonStyle: 获取 定义 Cancle 按钮 外 观 的 样式 。 

€  CancleButtonText: 设置 Cancle 按钮 显示 的 文本 。 

€ CancleButtonType: 设置 Cancle 按钮 呈现 的 类 型 。 

€  CancleDestinationPageURL: 设置 单 击 Cancle 按钮 时 打开 的 页 面 URL. 

€ FinishCompleteButtonImageURL: 设置 Finish 按钮 显示 的 图 片 。 

€  FinishCompleteButtonStyle: 获取 Finish 按钮 的 呈现 样式 的 一 个 实例 。 

€  FinishCompleteButtonText: 设置 Finish 按钮 的 文本 。 

€  FinishCompleteButtonType: 设置 Finish 按钮 呈现 的 类 型 。 

€  FinishDestinationPageURL: 设置 单 击 Finish 按钮 时 打开 的 页 面 URL. 

€  FinishNavigationTemplate: 获取 或 设置 Finish 步骤 中 用 于 显示 导航 区 域 的 模板 。 

€ FinishPreviousButtonImageURL: 获取 或 设置 Finish 步骤 中 Previous 按钮 的 
URL. 

€  FinishPreviousButtonStyle: 获取 Finish 步骤 中 Previous 按钮 的 样式 的 一 个 引 
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€  FinishPreviousButtonText: 获取 或 设置 Fnish 步骤 中 Previous 按钮 的 显示 文本 。 
€  FinishPreviousButtonType: 获取 或 设置 Finish 步骤 中 的 Previous 按钮 的 类 型 。 
€  NavigationButtonStyle: 获取 导航 区 域 的 按钮 的 样式 的 一 个 引用 。 
€ NavigationStyle: 获取 导航 区 域 定 义 的 控件 的 样式 的 一 个 引用 。 
€ StepType: Wizard 控件 的 每 个 步骤 都 有 StepType 属性 来 确定 该 步 又 的 导航 功能 
的 类 型 。 其 选项 如 表 4-19 所 示 。 
表 4-19 StepType 
选项 说 明 
Auto 默认 步骤 类 型 。 该 步骤 提供 的 导航 接口 由 该 步 又 声明 的 顺序 来 决定 
Complete 最 后 出 现 的 步骤 。 不 提供 导航 按钮 
Finish 最 后 的 收集 用 户 数据 的 步 又， 提供 Finish 导航 按钮 
Start 第 一 个 出 现 的 步骤 ， 不 提供 Previous 导航 按钮 
Step 第 一 个 和 最 后 一 个 步骤 之 间 的 普通 步 又， 提供 Precious 和 Next 导航 按钮 
P 


- 提示 :还 有 更 多 属性 ， 大 部 分 是 用 于 设置 样式 的 。 由 于 篇 幅 限 制 ， 不 一 一 列 出 。 


该 控件 的 主要 方法 有 : 
€ GetHistory: 返回 已 经 访问 的 WizardStepBase 对 象 的 集合 。 
€  GetStepType: 返回 指定 的 WizardStepBase 对 象 的 WizardStepType。 
€ MoveTo: 设置 继承 自 WizardStepBase 的 对 象 作为 Wizard 控件 的 ActiveStep 属 
性 。 
该 控件 主要 的 事件 包括 : 
ActiveStepChanged: 当 用 户 切换 到 新 的 step 时 触发 该 事件 。 
CancleButtonClick: 当 用 户 单 击 Cancle 按钮 时 触发 该 事件 。 
FinishButtonClick: 当 用 户 单 击 Finish 按钮 时 触发 该 事件 。 
NextButtonClick: 单 击 Next 按钮 时 触发 该 事件 。 
PreviousButtonClick: 单 击 Previous 按钮 时 触发 该 事件 。 
SideBarButtonClick: 单 击 SideBar 按钮 时 触发 该 事件 。 
Wizard 控件 的 使 用 如 下 示例 : 


«$0 Page Language-"VB" Inherits-"WizardClasscs aspx" %> 


— 


<!DOCTYPE html PUBLIC TP AVC / DD) Ast E iL 5) Transitional//EN" 
"http://www.w3.org/TR/xhtmll/DTD/xhtmll-transitional.dtd"» 
«html xmlns-"http://www.w3.org/1999/xhtml"» 
«body» 
<form id="forml" runat="server"> 
<asp:Wizard ID-"Wizardl" runat="server" ActiveStepIndex="0"> 
<WizardSteps> 


«asp:WizardStep runat="server" Title-"Step 1"» 
<asp:Label ID="Label2" runat="server" Text-"Label"»«/asp:Label» 
</asp:WizardStep> 
<asp:WizardStep runat="server" Title="Step 2"» 
<asp:Label ID-"Labell" runat="server" Text-"Label"»«/asp:Label» 
</asp:WizardStep> 

</WizardSteps> 

</asp:Wizard> 


</form> 
</body> 
</html> 


\ iE: 


= 上 面 的 例 程 中 没有 演示 对 Wizard 控件 的 事件 处 理 。 


(5) Substitution 控件 。 使 用 Substitution 控件 可 以 在 输出 高 速 缓存 的 页 面 中 插入 动 
态 内 容 。 该 控件 的 主要 属性 有 : 
€  MethodName: 该 属性 用 于 表示 为 返回 动态 内 容 而 调用 的 方法 。 由 Substitution 
控件 调用 的 方法 必须 是 静态 方法 。 此 外 ， 该 方法 还 必须 具有 一 个 表示 当前 
HttpContext 的 参数 。 以 下 代码 演示 了 如 何 使 用 该 控件 。 
«$8 outputcache duration="60" varybyparam-"none" %> 
<script runat="server" language="VB"> 
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
' 在 Label 中 显示 当前 时 间 . 
' 该 页 面 中 这 一 部 分 应 用 输出 缓存 
CachedDateLabel.Text = DateTime.Now.ToString() 
End Sub 


' Substitution 控件 调用 这 个 方法 来 获得 当前 时 间 
Public Shared Function GetCurrentDateTime (ByVal context As HttpContext) As 
String 
Return DateTime.Now.ToString() 
End Function 


«/script» 


«html» 
«head runat="server"> 
<title>Substitution Class Example</title> 
</head> 
<body> 
<form runat="server"> 
<h3>Substitution Class Example</h3> 
<p>This section of the page is not cached:</p> 
<asp:substitution id="Substitutionl"  methodname-"GetCurrentDateTime" 
runat="Server"> 


</asp:substitution> 
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«br /» 
<p>This section of the page is cached:</p> 
«asp:label id="CachedDateLabel" 
runat="Server"> 
</asp:label> 
<br /><br /> 
<asp:button id="RefreshButton" text="Refresh Page" runat="Server"> 
</asp:button> 
</form> 
</body> 
</html> 
(6) Localize 控件 。 本 地 化 表达 式 用 于 设置 控件 属性 和 其 他 HTML 元 素 。 许 多 要 


进行 本 地 化 的 Web 页 面 已 经 包含 大 量 混 有 ASP.NET 控件 的 静态 内 容 块 ，Localize 控 
件 用 于 将 静态 内 容 标记 为 可 本 地 化 。 
Localize 控件 比 它 的 基 类 Literal 控件 优越 的 是 , 运行 时 它 的 处 理 方式 与 Literal 控 
件 很 像 ， 但 设计 器 会 忽略 它 ， 并 允许 开发 人 员 直 接 在 设计 视图 中 编辑 静态 内 容 ( 不 像 
Literal 控件 ， 在 设计 视图 中 它 绑 定 到 一 个 容器 中 )。 接 下 来 的 代码 演示 了 如 何 使 用 
Localize 控件 来 显示 静态 文本 。 
«$0 Page Language="VB" AutoEventWireup-"True" %> 
«html» 
«head» 
«script runat-"server"» 
Private Sub ButtonClick(ByVal sender As Object, ByVal e As EventArgs) 
Localizel.Text = "Welcome to ASP.NET!! This is localized text." 
End Sub 
«/script» 
</head> 
<body> 
<form id-"Forml" runat="server"> 
<h3>Localize Example</h3> 
<asp:Localize id-"Localizel" Text-"Hello World!!" runat="server"/> 
<br><br> 
<asp:Button id="Buttonl" Text="Change Localize Text" 
OnClick="ButtonClick" runat="server"/> 
</form> 
</body> 
</html> 
ASP.NET 的 控件 使 很 多 繁琐 的 开发 过 程 变 得 一 目 了 然 。 相 信 读 者 在 将 来 的 使 用 
能 体会 到 这 些 新 增 控件 给 表示 层 开发 所 带 来 的 便利 ， 程 序 员 们 可 以 将 更 多 的 精力 集中 宪 
如 何 处 理 业 务 逻 辑 上 面 ， 开 发 速度 也 会 有 前 所 未 有 的 提高 ! 


4.5” 母 版 页 和 主题 


Ti 
1 


FH 


在 本 书 第 2 章 中 , 读者 已 了 解 到 Dreamweaver 为 网 页 开发 人 员 提 供 了 一 种 叫 模板 的 


功能 ， 它 定义 一 个 统一 的 样式 ， 其 他 页 面 直接 在 可 修改 的 地 方 进行 编辑 就 可 以 使 站 点 页 


面 风格 一 致 。ASPNET 引入 了 母 版 页 和 主题 ， 利 用 这 两 个 概念 ， 现 在 ASP.NET 的 程序 
员 也 可 以 方便 地 实现 统一 样式 的 页 面 ， 而 且 还 能 动态 修改 。 本 节 将 对 这 些 功 能 进行 简单 
的 介绍 。 


(04.5.1 和 母 版 页 


在 Web 应 用 中 ,可 以 通过 使 用 母 版 页 为 多 个 内 容 页 面 应 用 相同 的 页 面 布局 。 大 多 数 
Web 应 用 中 的 页 面 拥有 标准 的 元 素 ,例如 LOGO、 导 航 目 录 以 及 版 权 ， 等 等 。 可 以 将 这 
些 元 素 放 到 一 个 母 版 页 中 。 如 果 应 用 中 的 内 容 页 面 基于 母 版 页 建立 ， 那 么 内 容 页 面 将 自 
动 包含 这 些 相同 的 标准 内 容 。 

母 版 页 以 及 内 容 页 面 中 的 事件 通常 按照 以 下 顺序 执行 : 
初始 化 母 版 页 的 子 控件 。 
初始 化 内 容 页 面 的 子 控件 。 
初始 化 母 版 页 。 
初始 化 内 容 页 面 。 
加 载 内 容 页 面 。 
加 载 母 版 页 。 
加 载 母 版 页 的 子 控 件 。 

加 载 内 容 页 面 的 子 控件 。 

母 版 页 由 两 部 分 组 成 : 网 页 固定 内 容 和 多 个 内 容 页 可 定制 的 区 域 ， 即 ContentPlace 
Holder 控件 (对 应 于 Dreamweaver 中 的 可 编辑 区 域 )， 其 扩展 名 为 ,master。 内 容 页 是 使 
了 和 母 版 页 的 网 页 ，ASPNET 中 的 母 版 页 不 仅 可 包含 HTML 标记 ， 还 可 包含 Web 控件 
和 服务 器 源 代 码 。 

要 在 ASPNET 网 站 中 使 用 母 版 页 ， 首 先 需 要 创建 一 个 母 版 页 。 在 Visual Web 
Developer 的 “解决 方案 资源 管理 器 ”窗口 中 的 网 站 名 称 上 单 击 鼠标 右键 ， 在 弹出 的 快捷 
荣 单 中 选择 “添加 新 项 ”命令 , 在 弹出 的 对 话 框 中 选择 “ 母 版 页 ”， 即 可 创建 一 个 母 版 页 。 
母 版 页 需要 指定 所 有 内 容 页 都 有 的 区 域 以 及 每 个 内 容 页 中 可 定制 的 区 域 。 指 定 母 版 页 的 
可 定制 区 域 使 用 ContentPlaceHolder 控件 ， 该 控件 位 于 工具 箱 的 “标准 ”部 分 。 

下 面 的 代码 演示 了 一 个 简单 的 母 版 页 : 


«$80 Master Language="VB" %> 


HL 
oy 


«html» 
<head> 
<title> 简 单 的 Master Page</title> 
</head> 
<body> 


«form id="form1" runat="server"> 
«table width="100%"> 
«tr» 

«td» 
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<asp:ContentPlaceHolder 

id="ContentPlaceHolderl" 
runat="server" /> 

</td> 

<td> 

<asp:ContentPlaceHolder 

id="ContentPlaceHolder2" 
runat="server" /> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 

创建 母 版 页 的 目的 是 创建 一 系列 风格 类 似 的 内 容 页 。 创 建 内 容 页 时 ， 首 先 要 指定 要 
使 用 的 母 版 页 ， 然 后 在 页 面 中 添加 多 个 ContentPlaceHolder 控件 ， 用 于 定义 内 容 页 特有 
的 内 容 。 在 网 站 中 添加 新 项 时 ， 选 择 需要 的 页 面 模板 ， 例 如 “Web Bik”, 然后 选中 对 
话 框 右 下 角 的 “选择 母 版 页 ” 复 选 框 。 

使 用 上 述 代码 定义 的 母 版 页 的 内 容 页 的 代码 如 下 所 示 。 
«$80 Page MasterPageFile-"-/Simple.master" %> 
«asp:Content 

ID="Content1" 

ContentPlaceHolderID="ContentPlaceHolderi" 

Runat="server"> 

左边 列 的 内 容 
</asp:Content> 
<asp:Content 

ID="Content2" 

ContentPlaceHolderID-"ContentPlaceHolder2" 

Runat="server"> 

右边 页 的 内 容 
«/asp:Content» 

在 某 些 情况 下 ， 动 态 地 载 入 母 版 页 是 很 有 用 的 。 例 如 ， 您 的 网 站 和 一 个 或 多 个 网 站 
合作 ， 成 为 联合 品牌 ， 若 有 人 从 合作 网 站 连接 至 您 的 网 站 上 ， 最 好 能 自动 载 入 和 伙伴 
Web 网 站 一 致 的 外 观 的 母 版 页 。 再 比如 ， 为 浏览 者 提供 一 套 标 准 的 母 版 页 ， 应 用 程序 的 
使 用 者 能 够 自行 选择 偏好 的 页 面 布局 。 

要 让 现 有 网 页 动态 使 用 已 定义 的 母 版 页 ， 需 要 做 以 下 三 件 事情 : 

C1) 在 网 页 的 <%@ Page%> 指 令 中 添加 MasterPageFile 属性 。 

页 面 对 象 的 MasterPageFile 属性 的 值 是 一 个 指向 有 效 的 母 版 页 的 相对 路 径 。 在 使 用 
MasterPageFile 属性 的 同时 ， 必 须 注意 一 项 重要 的 限制 条 件 : 只 能 在 Prenit 事件 发 生 的 
同时 或 之 前 指定 该 属性 。PreInit 事件 是 在 页 面 执行 周期 中 最 先 执行 的 事件 。 如 果 在 后 续 
的 事件 中 尝试 为 该 属性 赋值 (例如 PageLoad 事件 )， 则 会 出 现 异常 。 

(2) 在 ASPNET 网 页 中 ， 为 母 版 页 中 每 个 ContentPlaceHolder 控件 添加 Content 控 


、 


H 


{lin 


件 ， 并 将 网 页 现 有 的 HTML 标记 和 Web 控件 移 到 合适 的 Content 控件 中 。 


[E 


在 设计 视图 中 的 内 容 区 域 单 击 鼠标 右键 ， 在 弹出 的 快捷 沫 让 


选择 “创建 自 定义 内 


A”, 即 可 创建 Content 控件 。 
(3) 对 于 ASP.NET 网 页 中 已 经 在 母 版 页 中 定义 的 标记 ， 例 如 HTML 元 素 <html>、 
<head> 和 <body> 以 及 Web 窗 体 标记 ， 将 其 删除 。 
接 下 来 的 三 个 例 程 将 演示 如 何在 页 面 中 动态 修改 页 面 所 使 用 的 母 版 页 。 其 中 例 程 
(2) MAE G) 是 两 个 不 同 的 母 版 页 ， 每 个 页 面 都 有 一 个 DropDownList 控件 ， 改 变 
选中 的 值 会 触发 页 面 PostBack 然后 改变 对 应 的 Profile.Master 值 ， 然 后 在 例 程 C1) 中 的 
页 面 通过 读 取 Profile Master 这 个 值 来 改变 所 使 用 的 母 版 页 。 


例 程 CI) 动态 使 用 母 版 页 的 Dynamic.aspx 


H 


<%@ Page Language-"vb" MasterPageFile-"-/DynamicMasterl.master" %> 
<script runat="server"> 
Private Sub Page_PreInit (ByVal sender As Object, ByVal e As EventArgs) 
MasterPageFile = Profile.Master 
End Sub 


«/script» 

<asp:Content ID="Content1" 
ContentPlaceHolderID-"ContentPlaceHolderl" 
Runat="Server"> 
Here is the content 


Acc 
«/asp:Content» Ld 

pA 

ff (2) 动态 使 用 母 版 页 (DynamicMasterl master ) X 

«$8 Master Language-"vb" $» > 

<script runat="server"> < 
Private Sub Page_Load() : 

If Not IsPostBack Then 图 

dropMaster.SelectedValue = Profile.Master r« 

End If © 
End Sub 简 
Private Sub SelectMaster(ByVal s As Object, ByVal e As EventArgs) 4r 


Profile.Master - dropMaster.SelectedValue 
Response.Redirect (Request.Path) 
End Sub 
«/script» 
«html» 
«head» 
<title>Dynamic Master 1</title> 
</head> 
<body bgcolor-"LightYellow"» 
«form id="Forml" runat="server"> 
«hl»Dynamic Master 1 CS</h1> 
<p> 


<asp:DropDownList 
id="dropMaster" 
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AutoPostBack="true" 
OnSelectedIndexChanged-"SelectMaster" 
ValidationGroup-"Master" 


Runat="Server"> 


<asp:ListItem Text="Dynamic 1" value="DynamicMasterl.master" /> 


<asp:ListItem Text="Dynamic 2" value="DynamicMaster2.master" /> 
</asp:DropDownList> 
</p> 
<asp:contentplaceholder 
id-e"ContentPlaceHolderl" 
runat="server" /» 
«/form» 
«/body» 
«/html» 


例 程 (3 ) 动态 使 用 母 版 页 ( DynamicMaster2.master ) 


«$80 Master Language-"vb" %> 
<script runat="server"> 
Private Sub Page Load() 
If Not IsPostBack Then 
dropMaster.SelectedValue - Profile.Master 

End If 

End Sub 

Private Sub SelectMaster(ByVal s As Object, ByVal e As EventArgs) 
Profile.Master - dropMaster.SelectedValue 
Response.Redirect (Request.Path) 

End Sub 


«/script» 

«html» 

«head» 
«title»Dynamic Master 2«/title» 

</head> 

<body bgcolor="LightGreen"> 

«form id="Forml" runat="server"> 

«hl»Dynamic Master 2 CS</h1> 

<p> 

<asp:DropDownList 
id="dropMaster" 
AutoPostBack="true" 
OnSelectedIndexChanged-"SelectMaster" 
ValidationGroup-"Master" 
Runat="Server"> 
<asp:ListItem Text="Dynamic 1" value="DynamicMasterl.master" /> 
<asp:ListItem Text="Dynamic 2" value="DynamicMaster2.master" /> 

</asp:DropDownList> 

</p> 

<asp:contentplaceholder 
id="ContentPlaceHolder1" 


runat-"server" /» 
«/form» 
«/body» 
«/html» 


运行 时 ， 母 版 页 和 内 容 页 面 合并 ， 所 以 母 版 页 上 的 控件 对 于 内 容 页 面 的 代码 来 说 是 


可 以 访问 的 。 


由 于 母 版 页 上 的 控件 是 受 保护 的 ， 所 以 不 能 作为 母 版 页 的 成 员 直 接 访 问 。 但 是 可 以 


用 FindControl 方法 。 代 码 如 下 所 示 : 
// 获取 ContentPlaceHolder 中 TextBox 控件 的 引用 。 
ContentPlaceHolder mpContentPlaceHolder; 


TextBox mpTextBox; 
mpContentPlaceHolder = 
(ContentPlaceHolder)Master.FindControl ("ContentPlaceHolder1"); 


if (mpContentPlaceHolder != null) 
{ 
mpTextBox = (TextBox) mpContentPlaceHolder.FindControl ("TextBox1"); 
if (mpTextBox != null) 
{ 
mpTextBox.Text = "TextBox found!"; 


) 
} 
// 获取 对 Label 控件 的 引用 ， 该 控件 不 在 ContentPlaceHolder 控件 中 


Label mpLabel = (Label) Master.FindControl ("masterPageLabel"); 
if(mpLabel != null) 
{ 

Labell.Text = "Master page label = " + mpLabel.Text; 


} 


(145.2 主题 


图 像 和 其 他 资源 , 至 少 要 包括 外 观 。 主题 是 在 网 站 或 者 Web 服务 器 上 的 \App_Themes 
牛 夹 中 定义 的 。 
主题 分 为 页 面 主 题 和 全 局 主题 两 种 。 


使 用 FindControl 方法 找到 母 版 页 上 的 特定 控件 。 如 果 想 要 访问 的 控件 在 母 版 页 上 的 
ContentPlaceHolder 控件 之 中 ， 必 须 首 先 获得 ContentPlaceHolder 控件 的 引用 ， 然 后 再 


调 


主题 可 以 为 菜 个 Web 应 用 程序 中 的 所 有 页 、 整 个 Web 应 用 程序 或 者 服务 器 上 的 所 
有 Web 应 用 程序 提供 统一 的 样式 ,主题 由 一 组 元 素 组 成 :外观 (Skin)、 层 车 样式 表 (CSS)、 


文 


页 面 主题 定义 单个 Web 应 用 程序 的 主题 ， 是 一 个 包含 控件 外 观 、 样 式 表 、 图 形 文 
件 和 其 他 资源 的 文件 来 ， 该 文件 夹 是 作为 网 站 中 的 \App_Themes 文件 夹 的 子 文件 夹 创 


建 的 ， 子 文件 夹 的 名 称 就 是 对 应 的 主题 的 名 称 。 
全 局 主题 定义 供 Web 服务 器 上 的 所 有 应 


YS 


服务 器 的 名 为 iisdefaultroot\aspnet_client\system_web\version\Themes 的 全 局 文件 夹 ! 


该 文件 夹 下面 的 子 文件 夹 名 称 就 是 对 应 的 主题 名 称 。 服 务 器 上 的 任何 网 站 以 及 任何 网 


程序 使 用 的 主题 。 全 局 主题 存储 在 Web 


» 


fi 


Er 


pB 
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中 的 任何 页 面 都 可 以 引用 全 局 主题 。 

定义 主题 最 重要 的 是 定义 外 观 文件 (扩展 名 .skin)， 它 包含 各 个 控件 的 属性 设 
置 。.skin 文件 在 theme 文件 夹 中 创建 ， 一 个 skin 文件 可 以 包含 一 个 或 多 个 控件 类 型 
的 一 个 或 多 个 控件 外 观 。 在 外 观 文件 中 添加 常规 控件 的 定义 ， 但 仅 包 含 主题 设置 的 属性 
并 且 不 包含 ID 属性 ， 控 件 的 定义 必须 包含 runat="server" 属 性 。 

控件 的 外 观 有 两 种 类 型 : 默认 外 观 和 已 命名 外 观 。 如 果 控 件 外 观 没 有 SkinID 属性 ， 
则 是 默认 外 观 。 当 在 页 面 应 用 主题 时 ， 默 认 外 观 自动 应 用 于 同一 类 型 的 所 有 控件 。 已 命 
名 外 观 是 设置 了 SkinID 属性 的 控件 外 观 。 已 命名 外 观 不 会 自动 按 类 型 应 用 于 控件 ， 而 
应 当 通 过 设置 控件 的 SkinID 属性 将 已 命名 外 观 显 式 应 用 于 控件 ,通过 创建 已 命名 外 观 ， 
可 以 为 应 用 程序 中 同一 控件 的 不 同 实例 设置 不 同 的 外 观 。 

下 面 的 例 程 将 演示 如 何 定 义 一 个 Button 控件 的 外 观 。 
<asp:Button runat="server" 
BackColor="Red" 
ForeColor="White" 
Font-Name-"Arial" 
Font-Size-"9px" /» 

一 个 定义 了 两 个 名 为 BlueTheme 和 PinkTheme 的 主题 的 页 面 主 题 的 代码 如 下 : 
MyWebSite 
App Themes 


BlueTheme 
Controls.skin 
BlueTheme.css 
PinkTheme 
Controls.skin 
PinkTheme.css 
定义 主题 之 后 ， 将 @ Page 指令 的 Theme 或 StyleSheetTheme 属性 设置 为 要 使 用 
的 主题 的 名 称 ， 则 可 对 单个 页 面 应 用 指定 的 主题 ; 将 应 用 程序 配置 文件 中 的 «pages 元 
素 设置 为 全 局 主题 或 页 面 主题 的 主题 名 称 ， 则 可 将 其 应 用 于 应 用 程序 中 的 所 有 页 。 如 例 
fi (4) 和 例 程 (5) 所 示 ; 


例 程 (4) 在 单个 页 面 应 用 主题 


«$0 Page Theme-"ThemeName" %> 
«$80 Page StyleSheetTheme-"ThemeName" $» 


设置 完 这 些 以 后 ， 就 可 以 在 对 应 的 页 面 或 者 站 点 中 的 控件 选用 主题 ， 设 置 控件 的 
SkinID 属性 为 对 应 的 主题 名 称 即 可 。 


例 程 (5) 在 Web.Config 文 件 中 配置 主题 


Hu 


«configuration» 
<system.web> 
«pages theme-"ThemeName" /> 
«/system.web» 
«/configuration» 


如 果 应 用 程序 主题 与 全 局 应 用 程序 主题 同名 ， 则 页 面 主题 优先 。 


如 果 在 Machine.config 文件 中 定义 了 <pages> 元 素 ， 则 主题 也 将 应 用 于 服务 器 上 的 


Web 应 用 程序 中 的 所 有 页 。 
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如 果 要 将 主题 设置 为 样式 表 主 题 并 作为 本 地 控件 设置 的 从 属 设置 ， 则 应 设置 
StyleSheetTheme 属性 ， 代 码 如 下 所 示 : 


<configuration> 


<system.web> 


«pages StyleSheetTheme-"Themename" /> 
«/system.web» 
«/configuration» 


iX: 

v Web. config 文件 中 的 主题 设置 会 应 用 于 该 应 用 程序 中 的 所 有 ASP. NET 
网 页 。Web. config 文件 中 的 主题 设置 遵循 常规 的 配置 层次 结构 约定 。 例 如 ， 要 仅 对 
一 部 分 网 页 应 用 某 个 主题 ， 可 以 将 这 些 页 与 它们 自己 的 Web. config 文件 放 在 一 个 文 
件 夹 中 ， 或 者 在 根 Web. config 文件 中 创建 一 个 “location> 元 素 以 指定 文件 夹 。 


4.6 ASP.NET 的 内 建 对 象 


本 节 介 绍 ASP.NET 中 几 个 常用 的 内 建 对 象 的 应 用 ， 使 读者 初步 了 解 ASPNET 的 输 
入 输出 方法 ， 并 学 习 ASPNET 处 理 动态 Web 网 页 的 一 般 方法 。 


[L]4. 6.1 Request 和 Response 


Request 7243 Response 相对 应 的 对 象 。Request 对 象 可 以 读 取 浏 览 器 的 数据 ， 而 
Response 对 象 则 下 载 数据 给 浏览 器 。 由 于 Request 对 象 会 传 回 用 户 输入 的 数据 ， 所 以 必 
须 使 用 变量 来 接收 ， 其 语法 格式 如 下 : 
变量 =Request 〈" 参 数 名 称 ") 

对 于 Response 对 象 ， 主 要 用 于 输出 数据 ， 其 语法 格式 如 下 ; 


Response.collection|property |method 


Response 常用 的 有 三 种 方法 : Write, End 和 Redirect， 分 别 简要 介绍 如 下 : 

€ Write: 在 页 面 上 以 字符 串 的 形式 输出 数据 。 

e End: 结束 数据 输出 或 退出 页 面 。 使 用 这 种 方法 退出 页 面 时 ， 所 有 已 经 打开 的 
对 象 不 会 被 关闭 。 


€ Redirect: 重 定向 网 页 。 


如 果 客 户 端 要 传送 数据 给 网 页 服务 器 ， 只 要 在 网 址 后 面 加 上 问号 ， 并 将 数据 名 称 及 
指定 的 值 填 入 即 可 。 例 如 ， 在 Dreamweaver 中 新 建 一 个 ASP.NET VB 文档 ， 在 代码 视 医 
中 输入 如 下 代码 : 


<% 


Dim sName,sCity As String 
sName-Request ("MyName") 
sCity-Request ("MyCity") 


JH yu 
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Response.Write("Hello,"&sName&",You are from"&sCity) 
5> 


将 上 述 代 码 保 存 为 名 为 testl.aspx 的 文档 ， 然 后 在 浏览 器 的 地 址 栏 中 输 


入 http://localhost/test1.aspx?MyName=vivi&MyCity=Shanghai, Bi) Fy 7 


FTR: 


Hello,vivi, You are from Shanghai 


下 面 的 代码 演示 Response 对 象 的 Redirect 方法 和 End 方法 的 但 


<% 


Dim sName As String 
sName-Request ("MyName") 
Response.Redirect ("http://www.123.com.cn/welcome.aspx") 


Response.End 


Response.Write (sName) 


%> 


ud 
mu 


区 ， 即 Buffer 


前 才 可 以 调用 


页 面 上 输出 如 下 字 


T 


prae 
n 


属性 设置 为 Tue， 组 六 


[4. 6.2 Application 和 Session 


一 个 站 点 除了 有 


丰富 的 内 容 需 要 


站 所 使 用 的 服务 器 不 仅 要 允许 多 位 | 
还 需 考虑 到 数据 的 
(1) 站 点 所 有 


管理 外 ， 网 上 的 用 


] 户 同时 进入 网 站 ， 
tk 享 ， 所 以 站 点 需要 考虑 的 数据 种 类 
户 的 共享 数据 (例如 当前 在 线 人 数 )， 在 ASP.NET 程序 中 ， 就 是 


E. 
H 


Application 变量 。 


(2) 站 点 上 每 个 


] 户 的 专 有 数据 (例如 ，] 


就 是 Session 变量 。 
使 用 Application 对 象 和 Session 对 象 创建 
[A Session 对 象 与 Application 对 象 有 什么 不 同 ? 

事实 上 ，Application 对 象 存放 的 变量 对 多 个 
皆 可 存 取 使 用 。 而 且 Application 变量 不 会 因为 某 一 个 用 
Application 变量 , 那么 它 就 会 一 直 存 在 到 
其 实 指 的 就 是 访问 者 从 到 达 某 个 特定 主页 到 离 


ASP.NET 程序 共享 。 导 


当 程 序 执行 到 上 述 代码 时 , Response.End 方法 之 后 的 程序 代码 或 HTML 标记 就 不 会 
执行 或 显示 ， 如 果 设 置 为 使 用 
制 输出 到 浏览 器 。 
Woh, Bee m y 
否则 会 产 


区 内 的 内 容 将 被 


Redirect 方法 只 能 在 还 没有 任何 数据 输出 到 浏览 器 以 


管理 的 部 分 。 网 


CÓ» 


的 变量 可 以 保存 在 月 


程序 系统 而 言 ， 


] 户 的 登录 权限 )， 在 ASP.NET 程序 中 ， 


R 务 器 上 ， 为 所 有 的 


JPRS, 


A ENA 


部 的 用 户 不 论 何 时 
和 就 消失 ， 一 旦 建立 了 
网 站 关闭 或 者 这 个 Application ENAX o if] Session 
Bb 段 时 间 ， 每 个 访问 者 都 会 单独 


获得 一 个 有 唯一 编号 〈SessionID ) 的 Session 对 象 。Session 对 象 所 保留 的 信息 是 只 供给 


当前 的 用 户 在 连接 期 间 内 使 用 ， 


JP RAM as. P 


RBS Session 对 象 也 会 失效 。 


也 就 是 说 ，Application 对 象 是 在 第 一 个 Session 对 象 创建 之 后 建立 ， 直 到 Web 服务 器 关 


机 或 者 所 有 用 户 离 线 后 才 会 关闭 。 另 外 ，Application 变量 和 保存 在 


ni 


IST. 


cookies 无 关 ， 而 Session 变量 需要 依靠 浏览 器 上 的 cookies 功能 才 色 


j 户 计算 机 上 的 


Application XJ Zl Session 对 象 的 语法 形式 分 别 如 下 : 


Application. collection | property | method 


Session.collection |property | method 

Application 对 象 和 Session 对 象 都 有 两 个 事件 ， 分 别 为 Application Start 和 
tApplication End, Session Start 和 Session End， 这 四 个 事件 必须 在 Global.asax 文件 中 
声明 才 有 用 。 当 第 一 位 用 户 请 求 ASPNET 程序 时 ， 用 户 进 入 Session 期 间 ， 并 且 建 立 
Application 对 象 ， 然 后 检查 Global.asax 文件 是 否 存在 。 如 果 Globalasax 文件 存在 ， 在 执 
ÍT ASPNET 程序 时 就 执行 其 中 的 Application_Start 事件 过 程 的 代码 ， 接 着 执行 
Session Start 事件 过 程 的 代码 。 当 Session 期 间 超过 TimeOut, 或 者 执行 了 Abandon 方法 ， 
在 关闭 Session 对 象 前 就 会 执行 Session_End 中 事件 过 程 的 代码 , 并 且 结束 Session 期 间 。 
当 Web 服务 器 关机 时 ， 就 会 执行 Application_End 事件 过 程 中 的 代码 。 
民 多 情况 下 ,一 个 页 面 不 止 一 个 访问 者 浏览 。 由 于 Application 变量 可 以 被 所 有 的 用 
户 读 取 和 修改 ， 所 以 有 可 能 同时 有 多 个 用 户 在 使 用 同一 个 变量 。 如 果 同 一 时 刻 ， 两 个 用 
户 同 时 读 取 Application 变量 ， 那 大 家 相安 无 事 ， 但 如 果 一 位 更 改 ， 一 位 读 取 Application 
变量 ， 在 这 种 情况 下 就 会 发 生 数据 冲突 。 为 了 避免 这 种 情况 的 发 生 ，Application 对 象 提 


=> 


供 了 两 个 方法 一 一 lock 和 unlock。 在 执行 修改 变量 操作 之 前 , 使 用 Lock 方法 , 禁止 其 他 
用 户 修改 变量 ; 修改 完毕 ,使 用 Unlock 方法 ， 允 许 其 他 用 户 修 改 该 变量 。 这 样 可 以 保障 


在 同一 时 间 只 允许 一 个 用 户 修 改变 量 。 

如 果 用 户 执 行 Lock 方法 之 后 忘 了 使 用 UnLock 方法 将 资源 释放 , 将 会 使 得 其 他 需要 
存 取 Application 对 象 的 程序 无 法 完成 以 致 于 失效 。 最 终 的 复原 方法 是 重新 激活 服务 器 或 
是 重新 激活 系统 的 服务 。 因 此 在 用 户 修改 完成 这 些 全 局 变量 的 同时 ， 请 特别 记得 使 用 
Unlock 方法 将 全 局 变量 释放 以 供 其 他 程序 继续 进行 修改 。 此 外 需要 注意 的 是 ， 不 能 针对 
个 别 变 量 进行 Lock 操作 ， 也 就 是 说 ， 要 么 全 都 Lock， 要 么 全 都 不 。 


FF 


[L]4.6.3 Server 


Server 对 象 也 是 ASP.NET 的 一 个 主要 的 内 置 对 象 ， 其 主要 功能 是 创建 COM 对 象 和 
创建 组 件 对 象 。 
Server 对 象 的 属性 只 有 一 个 ScriptTimeout， 即 指定 一 个 脚本 可 以 执行 的 时 间 期 
限 ， 默 认 值 为 90 秒 。 如 果 超 过 设置 值 还 没有 执行 完毕 ， 就 会 产生 Timeout 错误 。 在 默认 
情况 下 ， 不 允许 程序 在 服务 器 上 无 期 限 地 执行 下 去 ， 如 果 预 计 一 个 脚本 程序 会 执行 比较 
长 的 时 间 ， 最 好 设置 这 个 属性 ， 例 如 server.ScriptTimeout = 100. 

Server 对 象 有 一 个 很 重要 的 方法 ， 即 MapPath 方法 和 CreateObject 方法 。MapPath 
方法 可 以 很 轻松 地 将 读 取 到 正在 浏览 的 网 页 所 在 的 目录 路 径 ; CreateObject 方法 用 于 创 


建 已 注册 到 服务 器 上 的 ActiveX 控件 ， 实 现 一 些 脚 本 语言 无 法 实现 的 功能 。 
MapPath 的 语法 形式 如 下 : 


Server.MapPath (文件 名 称 ) 


> 或 0YLHNdSV Ub px 


MN 
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其 中 文件 名 称 是 必要 的 参数 ， 代 表 所 要 存 取 的 文件 。 例 如 ， 可 以 用 Server.MapPath() 
方法 将 一 个 服务 器 的 虚拟 路 径 转化 为 实际 的 路 径 : 

PhysicalPath = Server.MapPath("/Private/test.txt") 

假设 虚拟 路 径 /private 对 应 于 真实 路 径 c:\net\private, 那么 这 个 PhysicalPath 的 值 将 是 
C:\net\private\test.txt 

若 读者 只 想得到 网 站 虚拟 目录 的 根 目录 路 径 ， 可 以 用 下 列 代码 得 到 : 


Path = Server.MapPath("./") 


4.7 AJAX 服务 器 控件 


AJAX 英文 全 称 是 Asynchronous JavaScript and XML， 中 文 名 为 异步 JavaScript 和 
XML. AJAX 是 一 种 在 客户 端 与 服务 器 异步 通信 的 技术 ， 通 俗 的 名 称 为 “无 刷新 的 页 面 
请 求 技术 ”。 它 在 浏览 器 和 Web 服务 器 这 间 提 供 了 一 种 高 效 的 数据 传输 方法 。 

AJAX 不 是 一 个 单独 的 技术 ， 而 是 一 组 技术 的 结合 体 ， 由 JavaScript. CSS. HTML, 
XSLT. DOM 和 XML HttpRequest 等 技术 所 组 成 ， 它 们 改进 了 在 浏览 器 和 Web 服务 器 之 
间 交 换 数 据 的 方式 , 只 传输 必要 的 元 素 名 称 和 值 , 只 返回 网 页 中 需要 更 新 的 HTML 部 分 ， 
因此 浏览 器 能 够 无 颖 地 显示 更 新 页 面 。Visual Web Developer 引入 了 一 套 AJAX 的 开发 框 
架 ， 并 提供 了 大 量 的 服务 器 扩展 控件 ， 使 编号 AJAX 程序 非常 轻松 。 

€ ScriptManager: 该 控件 提供 了 执行 部 分 回 传 和 更 新 浏览 器 显示 所 需 的 JavaScript 

功能 , 用 于 处 理 浏 览 器 和 Web 服务 器 之 间 复 杂 的 通信 , 每 个 使 用 ASPNET Ajax 
库 的 网 页 都 必须 包含 该 控件 。 
€  UpdatePanel: 用 于 在 网 页 中 指定 一 个 可 参与 部 分 回 传 的 区 域 。 

€  UpdateProgress: 在 部 分 回 传 期 间 显示 内 容 ， 该 控件 可 用 于 提供 用 户 反 馈 ， 指 出 
正在 处 理 其 请 求 。 
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Web 应 用 程序 的 设计 , 简单 地 说 就 是 通过 对 数据 库 的 操作 , 来 达到 动态 
， 化 网 页 的 目的 。 因 此 学 习 Web 开发 、ASPNET， 必 须 对 数据 库 有 一 定 的 了 : 
， 解 和 使 用 能 力 。 本 章 将 学 习 关系 数据 库 的 基本 操作 、SQL 语言 以 及 ADO.NET : 
数据 本 型 的 相关 知识 


数据 库 基础 知识 
© 结构 化 查询 语言 SQL 
© 连接 SQL Server 数据 库 
© 存储 过 程 管 理 
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在 Web 应 


5.1 


要 的 角色 ， 绝 大 多 数 的 Web 应 用 都 


数据 库 基础 知识 


中， 数据 库 扮 演 着 十 分 习 


需要 数据 


库 的 支持 ， 比 方 说 搜索 引擎 、 大 型 电子 商务 系统 等 ， 没 有 强 有 力 的 数据 库 系 统 在 服务 器 


QJ5. 1. 1 


简单 地 说 ， 数 据 库 就 是 数据 存储 的 集合 。 在 考虑 数据 存储 时 ， 


盘 或 者 其 他 介 


修改 、 插 入 、 删 除 等 。 数 据 必须 被 科学 地 组 织 起 来 ， 并 且 使 ) 
和 处 理 数据 的 目的 ， 同 


端 支持 ， 是 和 

数据 库 可 以 说 是 一 
库 好 比 是 一 个 黑 
库 得 到 什么 样 


难 实现 的 。 
个 电子 文件 


EE， 其 意义 在 于 数据 的 管理 。 对 应 ) 


程序 而 言 ， 数 据 


箱 ， 内 部 的 数据 存储 方式 和 处 理 


的 数据 ， 利 ) 


数据 库 简介 


方法 是 不 可 见 的 ， 只 要 清 青 楚 需要 从 数据 
规范 的 接口 访问 数据 库 ， 系 统 就 会 自动 地 把 数据 处 理 好 。 


质 上 是 不 够 的 ， 更 重要 的 是 如 何 能 够 


时 数据 库 还 必须 保证 数据 的 可 靠 性 和 完整 性 。 


仅仅 把 数据 存储 到 硬 
快速 地 访问 和 处 理 数据 ， 包 括 查询 、 
好 的 算法 来 达 至 到 迅速 访问 


目前 常见 的 数据 库 有 Access, SQL Server, Oracle, IBM DB2, Sybase 等 ,其 中 Microsoft 


Access 是 


一 种 简单 易 用 


] 它 可 以 很 快 创建 具有 专业 特色 的 数据 库 ， 而 不 


Server 是 目前 易 


络 上 的 Web 应 用 程序 使 
BUG. WEMAN 


的 小 型 数据 库 设 计 系统 ， 特 别 适 用 


于 中 小 型 网 站 的 数据 操作 ， 利 


性 和 效率 结合 最 好 的 数据 库 之 一 ， 
j 较 多 的 数据 库 就 是 这 两 种 。 
等 文件 组 成 。 关 系 式 数 据 库 用 “ 表 〈table)” 的 结构 来 陈 


| 学习 高 深 的 数据 库 理 论 知识 ;，SQL 
而 且 其 学 习 门 槛 相对 较 低 。 目 前 网 


述 数据 ， 表 中 的 行 叫做 “记录 ” 列 叫做 “字段 ”， 每 一 个 表 由 许多 记录 组 成 ， 记 录 是 


据 库 的 构成 单元 ， 由 若干 字段 组 成 ， 一 个 记录 是 一 系列 相关 数据 的 集合 ， 见 表 5-1。 
表 5-1 学 生成 绩 表 
Name Math Chinese English 

张 三 90 85 90 

eai 92 84 90 

ER. 87 90 95 

在 这 个 表格 中 ， 每 个 成 绩 单 元 都 有 4 个 属性 〈 字 段 )， 即 Name. Math, Chinese 和 
English。 表 中 的 一 行 即 为 一 条 score 记录 。 

视图 和 查询 是 利用 表 的 数据 建立 的 新 表 。 数 据 库 文 件 和 一 般 的 文本 文件 不 同 ， 它 有 
自己 独 有 的 格式 ， 要 采用 特有 的 链接 方式 才能 打开 它 。 
(05.1.2 设计 库 结 构 


数据 库 设计 是 建立 数据 库 及 其 应 
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系统 的 核心 和 基础 ， 它 要 求 对 于 指定 的 应 用 环 


境 ， 构 造 出 较 优 的 数据 库 模式 ， 建 立 起 数据 库 应 用 系统 ， 并 使 系统 能 有 效 地 存储 数据 ， 
满足 用 户 的 各 种 应 用 需求 。 一 般 按照 规范 化 的 设计 方法 ， 常 将 数据 库 设计 分 为 以 下 几 个 
阶段 : 


C1) 系统 规划 阶段 : 主要 是 确定 系统 的 名 称 、 开 发 的 目标 功能 和 性 能 、 所 需 的 资 
源 以 及 系统 设计 的 原则 和 技术 路 线 等 。 对 分 布 式 数据 库 系 统 ， 还 应 分 析 用 户 环境 及 网 络 
条 件 ， 以 选择 和 建立 系统 的 网 络 结构 。 

(2) 需求 分 析 阶 段 : 这 一 阶段 要 在 分 析 用 户 调查 的 基础 上 ， 逐 步 明确 用 户 对 系统 
的 需求 ， 包 括 数据 需求 和 围绕 这 些 数据 的 业务 处 理 需 求 。 在 了 解 现 行 系统 的 概况 、 确 定 
新 系统 功能 的 过 程 中 ， 收 集 支 持 系统 目标 的 基础 数据 及 其 处 理 方法 。 

C3) 概念 设计 阶段 : 这 一 阶段 要 产生 反映 各 组 织 信息 需求 的 数据 库 概 念 结构 ， 即 
概念 模型 。 概 念 模型 必须 具备 丰富 的 语义 表达 能 力 、 易 于 交流 和 理解 、 易 于 变动 、 易 于 
向 各 种 数据 模型 转换 、 易 于 从 概念 模型 导出 与 DBMS 有 关 的 逻辑 模型 等 特点 。 


(4) 逻辑 设计 阶段 ， 这 一 阶段 除了 要 把 BR 图 的 实体 和 联系 类 型 ， 转 换 成 选 定 第 
的 DBMS 支持 的 数据 类 型 之 外 ， 还 要 设计 子 模式 并 对 模式 进行 评价 ， 最 后 优化 模式 ， 使 E 
模式 适应 信息 的 不 同 表 示 。 

(5) 物理 设计 阶段 ， 主要 任务 是 对 数据 库 中 数据 在 物理 设备 上 的 存放 结构 和 存 取 访 
方法 进行 设计 。 数 据 库 物 理 结构 依赖 于 给 定 的 计算 机 系统 ,而且 与 具体 选用 的 DBMS 密 问 
切 相关 。 = 


(6) 系统 实施 阶段 : 主要 分 为 建立 实际 的 数据 库 结构 ， 装 入 试验 数据 对 应 用 程序 HE 
进行 测试 ， 装 入 实际 数据 建立 实际 数据 库 三 个 步骤 。 

另外 ， 在 数据 库 的 设计 过 程 中 还 包括 一 些 其 他 设计 ， 如 数据 库 的 安全 性 、 完 整 性 、 
一 致 性 和 可 恢复 性 等 方面 的 设计 。 由 于 这 些 设 计 总 是 以 牺牲 效率 为 代价 的 ， 所 以 设计 人 
员 的 任务 就 是 要 在 效率 和 尽 可 能 多 的 功能 之 间 进 行 合 理 权 衡 。 


[[]5. 1.3 新 建 数 据 库 


本 书 实例 使 用 Microsoft SQL Server 2008 创建 数据 库 ， 而 Visual Studio 附带 了 
Microsoft SQL Server， 因 此 不 必 再 单独 安装 数据 库 。SQL Server 数据 库 表现 为 一 个 独立 
文件 ， ASPNET 提供 了 一 个 特殊 目录 App_Data 用 于 放置 数据 库 文件 。 

在 Visual Studio 中 创建 数据 库 的 操作 步骤 如 下 : 
(1) 使 用 本 书 前 面 章节 介绍 的 方法 新 建 一 个 ASPNET 网 站 ， 或 打开 一 个 已 有 的 网 
站 项 目 。 
(2) 在 “解决 方案 资源 管理 器 ”窗口 中 ， 右 击 网 站 名 称 ， 在 弹出 的 快捷 菜单 中 选 
择 “ 添 加 新 项 ”命令 。 
(3) 在 弹出 的 “添加 新 项 ”对 话 框 中 选择 模板 “SQL Server 数据 库 ?， 在 “名 称 ” 
文本 框 中 输入 数据 库 名 称 ， 然 后 单 击 “ 添 加 ”按钮 。 
此 时 ，Visual Studio 将 弹出 对 话 框 询问 用 户 是 否 将 创建 的 数据 库 文 件 放 在 App. Data 


文件 夹 中 ， 单 击 “ 是 ”关闭 对 话 框 ， 即 可 在 “解决 方案 资源 管理 器 ”窗口 中 的 App Data 
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目录 下 看 到 新 建 的 数据 库 ， 如 图 5-1 所 示 。 

执行 “视图 ”/“ 服 务 器 资源 管理 器 ”菜单 命令 ， 打 开 如 图 5-2 所 示 的 “服务 器 资源 
管理 器 ”窗口 ， 也 可 以 看 到 新 创建 的 数据 库 ， 还 可 看 到 其 他 可 操作 的 数据 库 元 素 ， 如 数 
据 库 关系 图 、 表 、 视 图 、 存 储 过 程 、 函 数 、 同 义 词 、 类 型 和 程序 集 。 目 前 还 没有 创建 任 
何 数据 库 元 素 。 


服务 器 资源 管理 器 
2] 5)|*& 94 te 
Rå SharePoint 连接 
a RS 
a s 数据 连接 
4 | E, FirstDatabase.mdf 


解决 方案 资源 管理 器 
EL 
i FA-AWebsSite1y 
4 |y App Data | 
4 ||j FirstDatabase.mdf | E. 
*&j FirstDatabase Log.ld | 
| 


E] Content.aspx 

E] Default.aspx 

回 MasterPage.master 

E ica nonin - 
r 


IT RE 数据 库 资源 管 … 


图 5-1 “解决 方案 资源 管理 器 ”窗口 图 5-2 “服务 器 资源 管理 器 ”窗口 


[[].1.4 新 建 数据 库 表 


数据 库 将 数据 存储 在 表 中 。 表 是 以 二 维 网 格 形式 存在 的 行 和 列 的 集合 ， 每 列 对 应 一 
个 字段 ， 每 行 则 对 应 于 一 条 记录 。 数 据 库 中 的 表 要 有 一 个 唯一 的 名 称 ， 以 便 与 其 他 数据 
库 表 相 区 别 。 创 建 数据 库 表 时 ， 不 需要 指定 任何 数据 ， 只 需要 只 指定 表 的 结构 ， 操 作 步 
又 如 下 : 
(1) ÆR 5-2 所 示 的 “服务 器 资源 管理 器 ”窗口 中 ， 鼠 标 右 击 “ 表 ”文件 夹 ， 在 弹 
出 的 快捷 菜单 中 选择 “添加 新 表 ” 命 令 ， 打 开 数 据 库 表 编辑 器 ， 如 图 5-3 所 示 。 

(2) 在 编辑 器 中 指定 表 的 字段 名 和 类 型 。 选 中 一 条 记录 时 ,“ 列 属性 ”窗口 中 将 显 
示 该 列 的 属性 列表 ， 如 图 5-4 所 示 。 从 图 中 可 以 看 出 ， 不 管 字段 使 用 哪 种 数据 类 型 ， 都 
可 存储 特殊 值 NULL， 表 示 “ 未 知 ” 值 。 在 有 些 情 况 下 ， 如 果 要 禁止 输入 “未 知 ” 值 ， 
则 可 将 该 列 标记 为 不 允许 NULL。 

(3) 单 击 工具 栏 中 的 “保存 ”按钮 回 ， 弹 出 “选择 名 称 ” 对 话 框 ， 输 入 数据 表 的 
名 称 ， 然 后 单 击 “ 确 定 ” 按 钮 。 接 下 来 可 以 在 表 中 添加 数据 了 。 

(4) 打开 “服务 器 资源 管理 器 ”窗口 ， 在 上 一 步 保 存 的 数据 表 上 单 击 鼠标 右键 ， 
在 弹出 的 快捷 菜单 中 选择 “显示 表 数 据 ” 命 令 ， 打 开 数 据 表 。 

(5) 单 击 字段 名 称 下 面 的 文本 框 ， 即 可 输入 对 应 的 数据 。 按 Tab 键 可 以 移 到 下 一 
个 字段 。 

输入 数据 时 ， 要 注意 输入 的 值 应 与 定义 的 列 属性 符合 ， 在 不 能 接受 NULL 值 的 列 中 
必须 输入 值 ， 对 于 可 接受 NULL 的 列 可 不 输入 值 ， 将 自动 添加 NULL. 


= 
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dd SharePoint i838 
LE] 
nm 
a D FirstDatabasemdt 
& RK 


图 5-3 “数据 库 表 编辑 器 ”窗口 1 问 


文 t 虽 ao AAV AAP 生成 (B) 调试 (D) AUM 数据 (A) SEK IAM AO SOW WAH - 
Ke ec -udgisaapa[:2]9-ve-£-3|» à a*xQra^([Dewo || ose 
BEZCTIERETEEDEETELSME 


nchar(10) » gi SharePoint 连接 
age int > a 服务 器 
y | address nverchar(S0) 4 pee 
a ae a Uj FirstDatabase.mdf 
lastlogin atetime > Cg ZUREGEEB 
> BA 
> Da 视图 
> Dg 存储 得 
p 
' 
' 
p 


aaz 
a 同义词 
Gs 
Lg 程序 集 


address 


nvarchar 


E 
E 


p 


5-4 “数据 库 表 编辑 器 ”窗口 2 
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[Ll5.1.5 设置 主键 列 


在 实际 应 用 中 ， 数 据 库 表 的 记录 会 频繁 地 被 访问 、 更 新 或 删除 ， 因 此 数据 表 中 的 每 
条 记录 应 有 唯一 标识 ， 数 据 库 中 通常 使 用 主键 列 实现 这 个 功能 。 主 键 列 通常 是 类 型 为 int 
的 列 ， 且 标记 为 自动 递增 列 ， 在 数据 表 中 添加 记录 时 ， 自 动 递增 列 的 值 自 动 递增 。 在 这 
里 注意 主键 列 和 自动 递增 列 是 两 个 独立 的 概念 ， 主 键 列 不 一 定 是 自动 递增 列 ， 而 自动 递 
增 列 也 不 一 定 是 主键 列 。 
设置 主键 列 的 操作 方法 如 下 ; 
(OD 打开 需要 设置 主键 列 的 数据 表 。 
(2) 在 数据 表 中 需要 设置 为 主键 列 的 列 名 上 单 击 鼠 标 右键 ， 在 弹出 的 快捷 菜单 中 
选择 “设置 主键 ”命令 。 此 时 选中 的 列 名 左 侧 显示 一 把 钥匙 的 图 标 ， 表明 该 列 为 主键 列 。 
如 果 当 前 数据 表 中 没有 任何 一 列 能 够 保证 记录 的 唯一 性 ， 需 要 在 表 中 创建 一 个 新 列 
用 于 唯一 标识 每 条 记录 ， 通 常 这 种 列 被 命名 为 TableNameID， 且 被 设置 为 自动 递增 列 ， 
步骤 如 下 : 
C1) 在 表 编 辑 器 中 ， 在 字段 列表 的 任何 位 置 单 击 鼠 标 右键 ， 在 弹出 的 快捷 菜单 中 
选择 “插入 列 ” 命 令 ， 然 后 输入 列 的 名 称 ， 指 定 其 数据 类 型 为 nt， 且 不 允许 Null. 
(2) 使 用 本 节 开 始 介绍 的 方法 将 插入 的 列 设置 为 主键 列 。 
(3) 在 编辑 器 中 选中 插入 的 列 ， 在 “ 列 属性 ”窗口 中 单 击 “标识 规范 ”属性 将 其 
开 ， 然 后 将 选项 “(是 标识 )” 的 值 修 改 为 “是 ”。 
至 此 ， 已 为 数据 表 创 建 了 主键 列 ， 且 主键 列 自 动 递增 。 
完成 以 上 操作 后 ， 在 保存 修改 的 数据 表 结 构 时 会 弹出 一 个 错误 消息 对 话 框 ， 提 示 用 
户 “ 无 法 保存 会 导致 重新 创建 一 个 或 多 个 表 的 更 改 ” 这 是 因为 Visual Web Developer 的 
数据 库 工具 默认 情况 下 不 允许 对 数据 库 表 做 有 关 类 型 的 修改 。 出 现 这 种 情况 时 ， 用 户 可 
以 选择 “工具 ”/“ 选 项 ”菜单 命令 ， 在 弹出 的 “选项 ”对 话 框 中 单 击 左 侧 的 “数据 库 工 
有 具 ”/“ 表 设计 器 和 数据 库 设 计 器 ”分 类 ， 然 后 在 对 话 框 右 侧 取消 选中 “防止 保存 需要 重 


x 


展 


新 创建 表 的 更 改 ” 复 选 框 ， 如 图 5-5 所 示 。 
选项 á 
Q SANSE ES 
ss ER J SSSR ERTS EO): 
启动 
A) 区 域 设 轩 事务 超时 时 间 (R): 
i 任务 列表 » Ue 
二 | 
Em 自动 生成 更 改 脖 本 (A) 
et use 
pr 71883 null ciae) 
(D — 回 检 测 到 差异 时 敬告 (D) 
FH HTML eit 7 RESIZE | 
| "mm 
| O/R Designer ZZEE | 
‘SRS ASME): (pa "| 
Co EGRE HE A . | 
per 本 在 新 建 关系 图 时 启动 “添加 表 ” 对 活 杠 (D 
i 
X 5-5 “选项 ”对 话 框 
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[L]5. 1.6 ADO. NET 模型 简介 


当前 市 场 上 存在 着 数 十 种 不 同类 型 的 数据 库 ， 这 些 数 据 库 分 别 由 不 同 的 公司 开发 ， 
采用 的 数据 格式 和 接口 也 各 不 相同 ， 因 此 当 应 用 程序 访问 它们 时 ， 就 需要 分 别 编写 不 同 
的 接口 ， 这 给 应 用 程序 的 设计 带 来 了 麻烦 。 解 决 这 个 问题 的 方法 就 是 由 系统 提供 各 种 不 
同 数 据 库 的 驱动 程序 ， 然 后 放 在 应 用 程序 与 数据 库 之 间作 为 中 间 环 节 。 

微软 公司 提供 的 通用 接口 ， 多 年 来 已 经 经 历 了 几 次 大 的 改进 。ActiveX Data Objects 
CADO) 是 Microsoft 开发 的 面向 对 象 的 数据 访问 库 ， 目 前 已 经 得 到 了 广泛 的 应 用 ， 而 
ADO.NET 则 是 ADO 的 后 续 技术 。 但 ADO.NET 并 不 是 ADO 的 简单 升级 ， 而 是 采用 了 


一 种 全 新 的 技术 。 利 用 ADO.NET， 程 序 员 可 以 非常 简单 而 快速 地 访问 数据 库 ， 主 要 表 
现在 以 下 几 个 方面 
Y ADO.NET 不 是 采用 ActiveX 技术 ， 而 是 与 NET 框架 紧密 结合 的 产物 。 
V  ADO.NET 包含 对 XML 标准 的 完全 支持 , 对 路 平台 交换 数据 具有 十 分 重要 的 意 第 
义 。 
v  ADO.NET 既 能 在 与 数据 源 链 接 的 环境 下 工作 ， 又 能 在 断 开 与 数据 源 链接 的 条 = 
件 下 工作 ， 非 常 适合 于 网 络 应 用 的 需要 。 访 
ADO.NET 访问 数据 采用 层次 结构 ， 其 逻辑 关系 如 图 5-6 所 示 。 i 
' 
(ASPNET) « 库 


数据 层 。 
(ADO.NET) « 


数据 存储 区 + 
(XML) + 


数据 存储 区 + 
(SOL Server). 


数据 存储 区 。 


(Access) + 


图 5-6 ADO.NET 层次 结构 
ADO.NET 的 设计 目的 是 从 数据 操作 中 分 解 出 数据 访问 。ADO.NET 有 两 个 核心 组 件 


完成 此 任务 : DataSet 和 .NET Framework 数据 提供 程序 。 

在 网 络 环境 下 ， 保 持 与 数据 源 链接 ， 如 果 不 符合 网 站 的 要 求 ， 不 仅 效率 低 ， 付 出 的 
代价 高 ， 而 且 常 常会 引发 由 于 多 个 用 户 同时 访问 时 带 来 的 冲突 。ADO.NET 系统 集中 主 
要 精力 用 于 解决 在 断 开 与 数据 源 链 接 的 条 件 下 数据 处 理 的 问题 。ADO.NET DataSet 是 
ADO.NET 的 断 开 式 结构 的 核心 组 件 ， 它 的 设计 目的 很 明确 ， 是 为 了 实现 独立 于 任何 数 


据 源 的 数据 访问 。 因 此 ， 它 可 以 用 于 多 种 不 同 的 数据 源 ， 用 于 XML 数据 ， 或 用 于 管理 
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应 用 程序 本 地 的 数据 。DataSet 包含 一 个 或 多 个 DataTable 对 象 的 集合 ， 这 些 对 象 由 数据 


行 和 数据 列 以 及 主键 、 外 键 、 HARE DataTable 对 象 中 数据 的 关系 信息 组 成 。 
ADO.NET 结构 的 另 一 个 核心 元 素 是 .NET Framework 数据 提供 程序 ， 它 相当 于 
ADO.NET 的 通用 接口 ， 用 于 建立 数据 源 与 数据 集 之 间 的 联系 ， 不 同 的 数据 提供 器 对 应 
于 不 同类 型 的 数据 源 。 它 能 按 要 求 将 数据 源 中 的 数据 提供 给 数据 集 ， 或 者 从 数据 集 向 娄 
据 源 返回 编辑 后 的 数据 。 它 包括 4 种 核心 类 
€ Connection: 用 于 建立 与 数据 源 "me 该 类 中 包括 链接 方法 ， 以 及 描述 当前 链 
接 状 态 的 属性 。 其 最 重要 的 属性 是 ConnectionString， 用 于 指定 服务 器 名 称 、 数 
据 源 信息 以 及 其 他 登录 信息 。 
€ Command: 用 于 设置 适合 于 数据 源 的 操作 命令 ， 以 便 执行 检索 、 编 辑 或 输出 参 
数 等 数据 操作 。 对 于 数据 库 来 说 ， 这 些 命令 既 可 以 是 内 联 的 SQL 语句 ， 也 可 以 
是 数据 库 的 存储 过 程 。 由 Command 类 生成 的 对 和 象 只 能 在 链接 的 基础 上 ， 对 链接 
的 数据 源 指定 相应 的 操作 。 
€ DataReader: 从 数据 源 中 读 取 只 进 有 旦 只 读 的 数据 流 。DataReader 只 能 在 与 数据 源 
保持 链接 的 状态 下 工作 ， 首 先 打开 与 数据 源 的 链接 ， 然 后 调用 DataReader 类 的 
Reader O 方法 ， 关 闭 与 数据 源 的 链接 。 
€ DataAdapter: 每 张 表 对 应 一 个 数据 适配器 ， 用 来 向 数据 集中 填 入 数据 (调用 Fill 
() 方法 )， 或 者 从 数据 集中 读 出 数据 。 
DataAdapter 提供 链接 DataSet 对 象 和 数据 源 的 桥梁 ， 向 数据 集中 填 入 数据 ， 或 者 
从 数据 集中 读 出 数据 。 当 DataAdapter 对 象 调 用 Fill O 方法 时 ， 使 用 Command WAE 
数据 源 中 执行 SQL 命令 ， 以 便 将 数据 加 载 到 DataSet 中 ， 并 使 对 DataSet 中 数据 的 更 
改 与 数据 尖 保 持 一 致 。 当 执行 上 述 SQL 语句 时 , 与 数据 库 的 链接 必须 有 效 , 但 不 需要 用 
语句 将 链接 对 象 打开 。 如 果 调 用 Fb O 方法 之 前 与 数据 库 的 链接 已 经 关闭 ， 则 将 自动 
H 开 它 以 检索 数据 。 执 行 完 毕 后 再 自动 将 其 关闭 。 如 果 调 用 FO 方法 之 前 链接 对 象 
已 经 打开 ， 则 检索 后 继续 保持 打开 状态 。 
目前 ，.NET Framework 附带 了 两 个 数据 提供 程序 : SQL Server .NET Framework 数 
据 提供 程序 和 OLE DB .NET Framework 数据 提供 程序 。 为 了 使 应 用 程序 获得 最 佳 性 能 ， 
应 该 使 用 适合 数据 源 的 .NET 数 据 提 供 程 序 。 表 5$-2 给 出 了 两 种 数据 提供 程序 的 适用 情况 。 
表 5-2 .NET 数据 提供 程序 适用 情况 
提供 程序 适用 情况 
于 链接 到 Microsoft SQL Server 7.0 或 者 更 高 版 本 。SQL 
SQL ServerNET 数据 提供 程序 | Server NET 数据 提供 程序 为 直接 访问 SQL Server 做 了 专门 的 优化 ， 
没有 其 他 附加 技术 层 
] 于 任何 使 用 OLE DB 提供 程序 链接 到 数据 库 的 应 用 程序 。 禁 用 
对 用 于 ODBC 的 OLE DB 提供 程序 的 支持 
举例 来 说 ， 如 果 要 访问 SQL Server 2008 数据 库 ， 应 该 使 用 SQL Server.NET 数据 提 


EE 


OLE DB.NET 数据 提供 程序 


GQ X1o3deu) 


供 程序 ， 而 如 果 是 要 访问 Access 数据 库 ， 则 应 该 使 用 OLE DB.NET 数据 提供 程序 。 
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综 上 所 述 ，ADO.NET 提供 对 Microsoft SQL Server 等 数据 源 以 及 通过 OLE DB 和 
XML 公开 的 数据 源 的 一 致 访问 。 可 以 直接 处 理 检 索 到 的 结果 ， 或 将 其 放 入 ADONET 
DataSet 对 象 ， 以 便 与 来 自 多 个 源 的 数据 或 在 层 之 间 进 行 远程 处 理 的 数据 组 合 在 一 起 ， 
以 特殊 方式 公开 。ADO.NET 的 DataSet 对 象 也 可 以 独立 于 .NET Framework 数据 提供 程 
序 使 用 ， 以 管理 应 用 程序 本 地 的 数据 或 源 自 XML 的 数据 。ADO.NET 组 件 的 结构 模型 如 


= 


图 5-7 所 示 。 
[UpdateCommand | ; [DataColumnCollection| 
Eee 有 [ConstraintCotlection | 
| peteRelationcolecion | 
第 
CA 
= 
EN 
图 5-7. ADO.NET 组 件 结构 模型 访 
从 上 面 的 分 析 中 可 以 看 出 ， 通 过 ADO.NET 访问 数据 库 的 一 般 步骤 如 下 : H 
C1) 建立 数据 库 链 接 对 象 (Connection X125). 据 
(2) 打开 数据 库 链接 (Connection 对 象 的 Open 方法 )。 库 


(3) 建立 数据 库 命令 对 象 ， 指 定 命令 对 象 所 使 用 的 链接 对 象 〈Command 对 象 )。 
(4) 指定 命令 对 象 的 命令 属性 (Command 对 象 的 CommandText JEPE). 
(5) 执行 命令 〈Command 对 象 的 方法 ， 例 如 ExecuteReader 方法 )。 
(6) 操作 返回 结果 CSglDataReader 对 象 或 者 其 他 对 象 )。 
(7) 关闭 数据 库 链接 。 
例如 : 首先 定义 一 个 字符 串 型 的 connStr 变量 ， 用 来 存储 链接 SQL Server 的 数据 库 
链接 字符 串 。 接 着 新 建 一 个 SqlConnection 对 象 ， 用 于 链接 数据 库 : 


Dim connStr as string 


connStr- "server-(local) ;Initial Catalog-Student; 
User Id-sa;Password-admin;"; 
Dim conn as new SqlConnection(connStr) 
调用 conn 对 象 的 Open 方法 打开 数据 库 链接 : 
conn.Open() 
新 建 SqlCommand 对 象 ， 该 对 象 用 于 向 数 据 库 发 出 命令 。 通 党 可 以 通过 调用 数据 库 
链接 对 象 conn 的 CreateCommand 方法 来 建立 SqlCommand 对 象 ， 事 实 上 SqlCommand 
对 象 有 自己 的 构造 函数 。 


Dim cmd as SqlCommand 


ln 


cmd = conn.CreateCommand () 
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有 了 命令 对 象 cmd 以 后 ， 通 过 如 下 代码 指定 该 命令 对 象 的 命令 属性 CommandText: 


cmd.CommandText = "Select ID,sName from student"; 

到 目前 为 止 ， 命 令 对 象 cmd 已 经 设置 完毕 ， 可 以 向 数据 库 发 出 命令 ， 执 行 
CommandText 中 所 定义 的 操作 了 。 为 了 保存 cmd 对 象 的 执行 结果 ， 声 明 一 个 SqlData 
Reader 对 象 reader， 并 将 cmd 的 执行 结果 保存 在 reader 中 : 


Dim reader as SqlDataReader 


reader- cmd.ExecuteReader() 
接着 定义 变量 output， 用 于 保存 要 输出 的 内 容 。 目 前 reader 中 已 经 保存 了 从 数据 库 
中 读 取 的 信息 ， 现 在 的 任务 是 输出 它们 。 从 数据 阅读 器 中 获取 数据 一 般 用 while 循环 ， 
数据 读 取 器 的 Read 方法 一 直 返 回 真 值 ， 直 到 reader 的 指针 指向 最 后 一 条 记录 的 后 面 。 
读 取 数 据 并 显示 的 代码 如 下 : 
While reader.Read() 
` 输 出 读 取 的 信息 


End While 
数据 被 读 取 以 后 应 该 立刻 关闭 数据 读 取 器 和 数据 库 链 接 对 象 
reader.Close() 


conn.Close() 
5.2 ”结构 化 查询 语言 SQL 


SQL 是 Structure Query Language 的 缩写 , 即 结构 化 查询 语言 。SQL 语言 是 专门 为 访 
问 数 据 库 而 设计 的 结构 化 语言 ， 可 以 完成 数据 查询 、 数 据 定义 和 数据 控制 等 操作 。SQL 
语言 功能 非常 强大 ， 语 言 很 复杂 也 很 庞大 ， 但 是 使 用 起 来 并 不 困难 ， 尤 其 是 在 程序 设计 
中 。 本 节 介 绍 几 个 常用 的 SQL 语句 。 


P 


a 


[[].2.1 插入 记录 


INSERT 语句 用 来 在 指定 的 表 中 插入 单个 或 多 行 记录 ， 同 时 赋 给 每 个 列 相应 的 值 。 
其 基本 语法 结构 如 下 : 

INSERT INTO «X4»[(GCFÉBUA 131.< 字 以 2>--) J 

VALUES (< 常量 1>[,< 常 量 2>]…) 

上 面 的 语法 虽然 没有 包含 INSERT 语句 的 所 有 功能 ， 但 是 大 多 数 情况 下 ， 用 户 只 需 
要 通过 这 个 格式 来 插入 数据 就 可 以 了 。 例 如 ， 在 course 表 中 添加 学 分 为 3 的 “计算 机 基 
础 ”课程 ， 该 课程 由 “ 洪 七 公 ” 教 授 ， 上 课时 间 为 每 周三 的 七 八 节 课 ， 上 课 地 点 为 主教 
学 楼 203 教室 ， 则 完成 该 操作 的 SQL 语句 为 : 


INSERT INTO course (tName,cName,cTime,cAddress,cCredit) 
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VALUES (' 洪 七 公 ',' 计 算 机 基础 '，' 每 周三 七 八 节 课 ',' 主 教学 楼 203 208,3) 
这 里 需要 注意 的 是 ， 如 果 插 入 的 数据 为 文本 类 型 或 时 间 类 型 ， 必 须 使 用 单 引 号 将 其 
舌 起 来 ， 如 果 是 数字 则 不 需要 。 


at 


[L]5.2.2 更 新 记录 


UPDATE 语句 的 功能 是 在 指定 的 表 中 修改 满足 条 件 的 记录 。 其 基本 语法 结构 如 下 : 

UPDATE < 表 名 > SET < 列 名 > = < 表达 式 >[,< 列 名 > = < 表达 式 >] … 

[WHERE < 条 件 >] 

上 面 的 语法 没有 包含 UPDATE 语句 的 所 有 功能 ,但 是 大 多 数 情况 下 ， 只 需要 通过 这 
个 格式 来 插入 数据 就 可 以 了 。 例 如 : 将 学 生 信息 表 student 中 学 生 李 四 的 性 别 修改 为 “ 女 ” 
可 以 使 用 下 面 的 SQL 语句 : 


UPDATE student SET sSex = ' 女 ' 第 
WHERE sName = " 李 四 ' b 

] 户 可 以 根据 查询 条 件 对 列 进行 更 新 ， 其 判断 条 件 就 是 WHERE TJ mma. m 
WHERE 子 句 是 SQL 语言 中 常用 的 子 句 , 通常 使 用 关系 表达 式 , 关系 运算 符 (包括 >、<、 访 
=、>=、<=、<>、!> 和 !< 等 ， 其 中 <> 表 示 不 等 于 ，!> 表 示 不 大 于 ，!< 表 示 不 小 于 ) 对 条 ^ 
件 进行 判断 ， 对 指定 数目 的 列 进行 更 新 ， 并 且 能 赋 给 这 些 列表 达 式 或 NULL. i 
同样 注意 ，SQL 语句 中 的 字符 串 要 使 用 单 引号 括 起 来 。 库 


[L]5.2.3 查询 记录 


查询 记录 使 用 SELECT 语句 ， 是 最 常用 的 SQL 命令 之 一 ， 它 的 功能 是 在 指定 的 一 
个 或 者 多 个 表 中 查询 满足 条 件 的 数据 集 。SELECT 语句 的 基本 语法 结构 如 下 : 

SELECT [ALL|DISTINCT] < 目标 列表 达 式 >[, < 目标 列表 达 式 >]… 

FROM < 表 名 >[, < 表 名 >]…. 

[WHERE < 条 件 表达 式 >] 

[GROUP BY < 列 名 1> [HAVING < 条 件 表达 式 >] ] 

[ORDER BY < 列 名 2> [ASC|DESC]] 

整个 SELECT 语句 的 含义 是 ， 根 据 WHERE 子 句 的 “条 件 表达 式 ” 从 FROM FA 
指定 的 表 中 找 出 满足 条 件 的 记录 ， 再 按 SELECT 子 句 中 的 “目标 列表 达 式 ” 选 出 记录 中 
的 列 形 成 结果 表 。 其 中 ALL 关键 字 表示 从 结果 集中 检索 所 有 的 行 ， 不 区 别 重复 的 行 ， 
DISTINCT 关键 字 表示 不 允许 有 相同 的 行 。 如 果 有 GROUP 子 句 ， 则 将 结果 按 < 列 名 1> 
的 值 进行 分 组 ， 该 属性 列 相等 的 记录 为 一 个 组 ， 通 常会 在 每 组 中 使 用 集 函 数 。 如 果 
GROUP 子 句 带 HAVING 短语 ， 则 只 有 满足 指定 条 件 的 组 才 了 予以 输出 。 如 果 有 ORDER 


子 句 ， 则 结果 表 还 要 以 < 列 名 2> 的 值 按 升序 或 者 降序 排序 ， 其 中 DESC 表示 降序 排列 ， 
ASC 表示 升序 排列 。 如 果 要 升序 排列 ， 可 以 省 略 ASC 关键 字 。 
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SELECT 语句 既 可 以 完成 简单 的 单 表 查 询 , 也 可 以 完成 复杂 的 链接 查询 和 贬 套 查询 。 


单 表 查询 简单 易学 ， 但 链接 查询 相对 有 一 定 难 度 ， 下 面 分 别 举例 进行 说 明 。 
C1) 单 表 查询 。 
SELECT * FROM student 
上 面 是 一 个 最 基本 的 SELECT 语句 ， 它 的 功能 是 查询 并 显示 表 student 中 的 所 有 记 
录 。* 表 示 表 中 的 所 有 字段 。 如 果 只 需要 查看 表 中 的 几 个 字段 ， 可 以 使 用 字段 名 符 换 
SELECT 语句 中 的 *， 例 如 ， 显 示 表 student 中 学 生 姓名 、 性 别 和 住址 信息 的 查询 语句 如 
F: 


SELECT sName,sSex,sAddress FROM student 
在 上 面 的 两 个 例子 中 ， 结 果 中 的 列 名 都 是 以 字段 名 (如 sName) KERA, A 
不 直观 。 可 以 使 用 AS 关键 字 在 SELECT 中 指定 列 名 ， 例 如 : 
SELECT sName AS 姓名 ,sPhone AS 电话 FROM student WHERE sSex = ' 男 ' 
此 外 ， 在 WHERE 子 句 中 还 可 以 使 用 SQL Server 谓词 ， 从 而 满足 更 多 的 查询 要 求 。 
e LIKE 谓词 确定 查找 的 字符 串 是 否 与 指定 的 模式 匹配 。 模 式 包括 普通 字符 和 通 
配 符 ， 是 一 种 简单 的 模糊 查询 方法 。% 和 _ 是 最 常用 的 通配符 ，% 表 示 0 个 或 者 
多 个 字符 构成 的 字符 串 ， 表示 单个 任何 字符 串 。 使 用 时 要 注意 一 个 汉字 占 两 个 
字符 。 例 如 要 查询 姓 李 的 同学 的 姓名 和 电话 ， 可 以 使 用 下 面 的 语句 : 
SELECT sName AS 姓名 , sPhone AS 电话 FROM student WHERE sName LIKE ' 李 %' 
使 用 LIKE 查询 在 实现 网 站 搜索 功能 时 很 有 用 处 。 
€ BETWEEN 谓词 指定 关系 表达 式 的 范围 。 例 如 要 查询 分 数 在 60~80 之 间 的 学 生 
选课 信息 ， 可 以 使 用 下 面 的 语句 : 
SELECT stuID,courseID FROM stuCourse WHERE stuMark BETWEEN 60 AND 80 
e IN 谓词 确定 给 定 的 值 是 否 与 子 查 询 或 者 列表 中 的 值 相 匹配 。 例 如 要 显示 没有 选 
修 任何 课程 的 学 生 学 号 和 姓名 ， 可 以 使 用 下 面 的 语句 。 
SELECT ID,sName FROM student WHERE ID NOT IN (SELECT stuID FROM stuCourse) 
在 WHERE 子 句 中 包含 了 一 个 SELECT 语句 ， 它 的 功能 是 查询 表 stuCourse 中 的 所 
有 的 学 生 学 号 。 而 ID NOT IN(SELECT stuID FROM stuCourse) 表 示 在 表 student 中 ID ^£ 
段 的 值 没有 出 现在 (NOTIN) X stuCourse 中 的 记录 。 
(2) 链接 查询 。 上 面 介 绍 的 都 是 从 一 个 表 中 查询 得 到 结果 集 。 在 很 多 情况 下 ， 需 
要 从 多 个 表 中 提取 数据 ,如 需要 查询 学 号 为 200131500141 的 学 生 所 选课 程 的 课程 名 以 及 
该 课程 的 得 分 。 这 样 的 查询 涉及 到 多 个 表 ， 叫 做 链接 查询 。 要 实现 上 述 功能 ， 可 以 使 用 


143) 


ae 


如 下 查询 语句 : 
SELECT stuCourse.stuMark AS 分 数 ,course.cName AS 课程 FROM stuCourse, 
course 


GQ 1o3deu) 


WHERE stuCourse.courseID = course.ID AND stuCourse.stuID = '200131500141' 


这 是 最 简单 的 一 种 链接 查询 方式 , 叫做 等 值 查询 ,上面 SELECT 语句 中 包含 两 个 表 ， 
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事实 上 链接 查询 可 以 包含 多 个 表 。 

除了 等 值 链接 ， 还 有 左 外 链接 和 右 外 链接 。 所 谓 左 外 链接 ， 是 指出 现在 左 表 中 的 所 
有 数据 不 管 是 否 与 右 表 中 的 数据 匹配 ， 都 将 得 到 保留 。 右 外 链接 则 刚好 相反 。 例 如 ， 需 
要 查询 所 有 学 生 的 学 号 和 姓名 ， 同 时 如 果 该 学 生 选 择 了 课程 ， 也 要 列 出 课程 编号 。 实 现 
此 功能 需要 使 用 左 外 链接 ， 具 体 代 码 如 下 : 


SELECT A.ID,A.sName,B.courseID,B.stuMark FROM student AS A 


LEFT JOIN stuCourse AS B ON A.ID - B.stuID 


[Il5.2.4 删除 记录 


在 数据 库 中 删除 记录 使 用 DELETE 语句 ， 基 本 语法 结构 如 下 : 

DELETE FROM < 表 名 > 

[WHERE < 条 件 >] 第 

如 果 有 查询 条 件 ， 则 删除 与 查询 条 件 相 符合 的 行 。 如 果 省 略 WHERE ff), X bs 
除 表 中 全 部 记录 ， 但 是 表 的 定义 仍然 存在 ， 也 就 是 说 ，DELETE 语句 删除 的 是 表 中 的 数 m 


据 ， 不 是 关于 表 结 构 的 定义 。 例 如 删除 不 及 格 的 选课 信息 和 删除 所 有 的 学 生 选 课 信 息 的 访 


SQL 命令 分 别 如 下 所 示 : 问 
DELETE FROM stuCourse where stuMark < 60 = 
DELETE FROM stuCourse FE 


5.3 ”链接 SQL Server 数据 库 


前 面 已 经 提 到 SQL Server.NET 数据 提供 程序 提供 了 对 SQL Server 2008 的 优化 访问 。 
因此 对 于 使 用 SQL Server 作为 后 台数 据 库 的 应 用 程序 而 言 ， 此 数据 提供 程序 是 一 个 优先 
的 选择 。SQL Server.NET 数据 提供 程序 的 SqlConnection 对 象 是 在 System.Data.SqlClient 
命名 空间 中 定义 的 ， 它 包含 在 System.Data DLL 程序 集中 。 使 用 Visual Studio.NET 开发 
应 用 程序 时 ， 一 般 的 项 目 都 自动 引用 了 该 程序 集 。 可 以 使 用 如 下 两 种 方式 来 使 用 


SqlConnection 25: 


Dim conn as new System.Data.SqlClient.SqlConnection () 
下 面 是 在 类 中 导入 了 这 个 命名 空间 后 的 使 用 方式 : 


Import System.Data.SqlClient 


Dim conn as new SqlConnection() 


显然 实际 编码 时 采用 后 一 种 方式 会 减少 代码 编写 量 ， 本 书 采 用 这 种 方式 编码 。 


[L]5. 3.1 SqlConnection 类 


为 了 链接 SQL Server， 必 须 实 例 化 SqlConnection 类 ， 并 调用 此 对 象 的 Open 方法 。 
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ELS 


的 任何 一 


当 不 再 需要 链接 时 ， 应 该 调 | 
两 个 构造 函数 ， 一 个 不 带 参 数 ， 男 外 一 个 接受 链接 字符 串 ， 因 


种 实例 化 链接 : 


这 个 对 象 的 Close 方法 关闭 链接 。SqlConnection 类 定义 了 


此 可 以 使 ) 两 种 方式 


1 PM 


Dim conn As New SqlConnection() 


conn.ConnectionString 


conn.Open() 


或 者 : 


Dim conn As New SqlConnection (ConnectionString) 


conn.Open() 


ConnectionString 


显然 使 用 后 一 种 方法 输入 的 代码 要 少 一 点 ， 但 是 两 种 方法 执行 的 效率 并 没有 什么 不 
同 。 另 外 如 果 需 要 重用 Connection 对 象 去 使 用 不 同 的 身份 链接 不 同 的 数据 库 ， 使 用 第 一 
种 方法 则 非常 有 用 ， 例 如 : 
Dim conn As New SqlConnection() 
conn.ConnectionString = ConnectionStringl 
conn .Open () 
"访问 数据 库 ， 做 一 些 事情 
conn .Close () 
conn.ConnectionString = ConnectionString2 
conn.Open() 
"访问 数据 库 ， 做 另外 一 些 事情 
conn .Close () 
但 是 必须 注意 只 有 当 一 个 链接 关闭 以 后 ， 才 能 把 另外 一 个 不 同 的 链接 字符 串 赋 值 给 


Connection 对 象 。 如 
Connection 对 象 的 State 属性 


FH. 
个 


某 个 时 候 不 知道 Connection 对 象 是 打开 还 是 关闭 时 
， 它 的 值 可 以 是 Open， 也 可 以 是 Closed， 这 样 就 可 以 知道 


， 可 以 检查 


链接 是 否 是 打开 的 。State 也 有 其 他 的 值 ， 表 5-3 列 出 了 ConnectionState 的 所 有 值 。 
C 表 5-3 ConnectionState 枚 举 成 员 值 
ss 成 员 名 称 说 明 
ay) Broken 与 数据 源 的 链接 中 断 。 只 有 在 链接 打开 之 后 才 可 能 发 生 这 种 情况 。 可 以 关闭 处 于 
Oo 这 种 状态 的 链接 ， 然 后 重新 打开 〈 该 值 是 为 此 产品 的 未 来 版 本 保留 的 ) 
cr Closed 链接 处 于 关闭 状态 
(D Connecting 链接 对 象 正在 与 数据 源 链 接 〈 该 值 是 为 此 产品 的 未 来 版 本 保留 的 ) 
S Executing 链接 对 象 正在 执行 命令 〈 该 值 是 为 此 产品 的 未 来 版 本 保留 的 ) 
ES Fetching 链接 对 象 正在 检索 数据 《该 值 是 为 此 产品 的 未 来 版 本 保留 的 ) 
C Open 链接 处 于 打开 状态 
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[L]5.3.2 SQL Server 的 链接 字符 串 


在 上 一 节 中 多 次 提 到 了 链接 字符 串 ConnectionString， 这 一 小 节 详 细 讨 论 它 。 

SQL Server.NET 数据 提供 程序 链接 字符 串 包含 一 个 由 一 些 “ 属 性 名 / 值 ” 对 组 成 的 
合 。 

每 一 个 “属性 名 / 值 ” 对 都 由 分 号 隔 开 。 


PropertyNamel-Valuel; 


> 
tt 


N 
a 


PropertyName2-Value2; *****';PropertyNameN=ValueN; 
例如 : 
server-(local) ;Initial Catalog-Student;User Id-sa;Password-admin; 
其 中 server 是 服务 器 地 址 ， 值 “(local)” 表 示 使 用 本 地 机 器 ， 男 外 可 以 使 用 计算 机 
名 作为 服务 器 的 值 。Server 关键 字 可 以 替换 为 Data Source。 上 面 的 链接 字符 串 可 以 写成 


如 下 形式 : 第 
Data Source= (local ) f imitere Catalog-Student;User 章 

Id=sa;Password=admin; 
Initial Catalog 属性 指明 了 链接 使 用 的 数据 库 ， 上 面 的 链接 字符 串 表 明 使 用 Student 访 
数据 库 。 内 
User Id 和 Password 则 分 别 指明 了 访问 数据 库 时 使 用 的 用 户 名 和 密码 。 JE 
Data Source= (local ) p maed Catalog-Student;Integrated 库 


Security-SSPI; 
Integrated Security=SSPI 表示 链接 时 使 用 的 验证 模式 是 Windows 身份 验证 模式 。 


[L]5.3.3 Sqlconnection 的 方法 


SqlConnection 对 象 有 自己 的 方法 ， 如 前 面 已 经 使 用 过 的 Open 方法 和 Close 方法 。 
de 5-4 列 出 了 其 常用 的 方法 。 


表 5-4 SqlConnection 对 象 的 方法 


方法 名 称 方法 描述 
Open 使 用 ConnectionString 所 指定 的 属性 设置 打开 数据 库 链 接 
Close 关闭 与 数据 库 的 链接 。 这 是 关闭 任何 打开 链接 的 首选 方法 
CreateCommand 创建 并 返回 一 个 与 SqlConnection 关联 的 SqlCommand 对 象 
ChangeDatabase 为 打开 的 SqlConnection 更 改 当前 数据 库 
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注意 : 
= 数据 库 链接 是 很 有 价值 的 资源 ， 因 为 链接 要 使 用 到 宝贵 的 系统 资源 ， 如 内 
存 和 网 络 带宽 ， 因 此 对 数据 库 的 链接 必须 小 心 使 用 ， 要 在 最 晚 的 时 候 建立 链接 ( 调用 
Open 方法 ) ， 在 最 早 的 时 候 关 闭 链接 (调用 Close 方法 ) 。 也 就 是 说 在 开发 应 用 程序 
时 ， 不 再 需要 数据 链接 时 应 该 立刻 关闭 数据 链接 。 这 看 起 来 很 简单 ， 事 实 上 达到 这 个 
目标 也 不 难 ， 关 键 是 要 有 这 种 意识 。 


(15.3.4 链接 SQL Server 的 数据 访问 实例 


链接 结果 输出 一 定 的 内 容 。 本 例 的 操作 步骤 如 下 : 


这 一 节 编 写 一 个 ASPNET 应 用 程序 来 链接 SQL Server 数据 库 中 的 Student， 并 依据 


(1) 启动 Dreamweaver， 新 建 一 个 ASPNET VB WH, 布局 为 “无 ”然后 单 击 “ 创 


建 ” 按 钮 。 并 将 其 命名 为 SqlConnectionTest.aspx。 


的 对 话 框 中 单 击 “ASPNET”/“Web 服务 器 控件 ”分 类 ， 插 入 一 个 按钮 控件 ， 并 在 打 
的 对 话 框 中 设置 ID 为 btnConnect， 文 本 属性 为 “点 击 链接 数据 库 ?， 然 后 单 击 “ 确 定 ” 


(2) 切换 到 设计 视图 ， 在 “常用 ”插入 面板 上 单 击 “ 标 签 选择 器 ”按钮 ， 在 弹出 


(3) 在 文档 窗口 中 单 击 bmConnect， 然 后 打开 “标签 编辑 器 ”对 话 框 。 单 击 左 侧 的 


OnClick 事件 ， 并 在 右 侧 的 文本 框 中 键入 按钮 的 Click 事件 相关 的 事件 处 理 程序 名 称 
btnConnect. Click. 


《4) 切 换 到 代码 视图 , 编写 代码 导入 命名 空间 System.Data 和 System.Data.SglClient, 


表示 将 使 用 SQL ServerNET 数据 提供 程序 。 


C5) 在 事件 处 理 程序 btnConnect. Click 中 添加 如 下 代码 : 


<script runat="server"> 


Sub btnConnect Click(sender As Object, e As System.EventArgs) 
BEV 
' 声 明 Connection 对 象 conn 

Dim conn As New SqlConnection() 


E 


' 指 定 conn 的 ConnectionString 属性 值 


conn.ConnectionString - 


"Data Source-(local);user id=sa; password=admin; initial 


catalog-student" 


220 


' 调 用 Open 方法 来 打开 链接 


conn.Open() 


' 判断 conn 是 否 打开 了 链接 ， 如 果 链 接 成 功 则 提示 信息 
If conn.State = ConnectionState.Open Then 


Response.Write (" 数 据 库 链 接 成 功 ! <br>") 


Response.Write ("<script>alert (' 链 接 已 经 打开 !')</script>") 
End If 


"WA Close 方法 关闭 链接 
conn.Close () 
:判断 是 否 成 功 关闭 数据 库 链 接 ， 关 闭 成 功 则 提示 信息 


If conn.State = ConnectionState.Closed Then 


Response.Write ("«script»alert (' 链 接 已 经 关闭 !')</script>") 
Response.Write ("数据 库 已 经 关闭 ") 
End If 


Catch ex As Exception 


Response.Write ((" 数 据 库 链接 失败 ， 可 能 的 原因 是 : <br>" + ex.Message)) 


End Try 第 

End sub A 

«/script» ES 

(6) 保存 文档 ， 并 在 浏览 器 中 预览 效果 。 单 击 “ 点 击 链接 数据 库 ” 按 钮 ， 如 果 数 访 

据 库 链 接 成 功 ， 则 将 依次 弹出 两 个 对 话 框 ， 显 示 链 接 已 经 打开 和 链接 已 经 关闭 ， 并 在 页 问 

面 输出 对 应 的 信息 。 数 

(7) 如 果 链 接 不 成 功 ， 则 可 能 得 到 提示 错误 信息 的 页 面 ， 例 如 将 链接 字符 串 修改 ， 
故意 将 Student 数据 库 拼写 错误 为 Stadent， 如 下 代码 所 示 : 

Data Source-(local);user id=sa; password=admin; initial 


catalog=stadent 


然后 在 浏览 器 中 预览 ， 单 击 按 钮 后 得 到 如 图 5-8 所 示 的 界面 。 


数据 库 连接 失败 ， 可 能 的 原因 是 ， ] 
TEIMER ‘stadent 中 请 求 的 数据 库 。 登 录 失 败 。 用 户 'sa' 登 


T 
点 击 连接 数据 库 
igi COO — — 
图 5-8 ”链接 出 错 的 界面 
读者 也 许 注意 到 了 上 面 的 代码 都 包含 在 ty…end try 中 了 ， 这 是 什么 意思 呢 ? try 与 


Md 


catch 是 VB.NET 中 对 异常 处 理 的 代码 。 因 为 在 访问 数据 库 的 时 候 并 不 能 保证 数据 库 一 定 
能 够 被 顺利 访问 ， 因 此 应 该 对 可 能 发 生 的 异常 进行 处 理 ， 例 如 上 面 提 到 的 修改 student 
为 stadent. 

try-catch 语句 由 一 个 try 块 和 其 后 所 跟 的 一 个 或 多 个 catch 子 句 (为 不 同 的 异常 指定 
处 理 程序 ) 构成 。 此 语句 会 采用 下 列 形式 之 一 ; 


IRESI 


[ tryStatements ] 


[ Catch [ exception [ As type ] ] [ When expression ] 
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[ catchStatements ] ] 


| Ee Wray ] 


[ Finally 
[ finallyStatements ] ] 


End Try 
其 意思 很 明显 ， 当 程序 试 着 执行 try-catch 中 的 语句 时 ， 如 果 应 用 程序 发 生 异 常 ， 则 


由 对 应 的 catch 来 捕捉 异常 ， 并 执行 对 应 catch 中 的 代码 。 

将 student 修改 为 stadent 以 后 ， 程 序 执行 到 conn.Open(O 时 ， 由 于 不 能 正常 打开 数据 
库 链 接 ， 将 抛 出 异常 ，catch 语句 不 捕获 该 异常 以 后 执行 catch 中 的 语句 块 ， 输 出 对 应 的 
错误 信息 ， 具 体 代码 如 下 : 

Catch ex As Exception 
Response.Write ( ("数据 库 链 接 失 败 ， 可 能 的 原因 是 : <br>" + ex.Message)) 

很 明显 ，ex.Message 包含 了 具体 的 错误 信息 。 

\ iE: 

SD 在 开发 实际 的 应 用 程序 时 应 该 对 有 可 能 发 生 异常 的 代码 进行 异常 捕获 处 

这 点 读者 要 


d 


理 。 本 书 中 部 分 地 方 为 了 专注 于 某 一 知识 点 的 讲解 ， 并 没有 做 处 理 异常 ， 
注意 。 


(15.3.5 使 用 SalDataSource 控件 访问 数据 库 


在 上 一 章 中 提 到 过 ，ASPNET 提供 了 一 组 数据 源 控件 用 于 访问 底层 数据 库 中 的 数 
据 。 使 用 数据 源 控件 检索 数据 库 中 的 数据 非常 简单 ,只 需要 拖 放 一 个 控件 到 ASPNET 网 
页 中 ， 并 按照 向 导 提 示 指 定 要 获取 的 数据 库 数据 。 

本 书 示 例 使 用 SQL Server 2008， 因 此 本 节 将 介绍 使 用 SqlDataSource 控件 操作 数据 
库 的 一 般 方法 和 步骤 。 

CD 打开 一 个 已 创建 了 数据 库 的 网 站 项 目 ， 并 新 建 一 个 ASPNET 网 页 。 

(2) 打开 Visual Web Developer 工具 箱 ， 从 “数据 ”部 分 拖 到 一 个 SqlDataSource 
控件 到 页 面 上 。 该 控件 显示 为 灰色 ， 并 自动 显示 智能 标签 ， 如 图 5-9 所 示 。 智 能 标签 显 
示 可 对 当前 控件 执行 的 操作 。 

(3) 单 击 智能 标签 中 的 “配置 数据 源 ” 链 接 ， 打 开 配 置 数 据 源 向 导 。 在 下 拉 列 表 
框 中 选择 要 链接 的 数据 库 文件 。 单 击 “ 链 接 字 符 串 ” 左 侧 的 折合 按钮 ， 可 以 查看 用 于 访 
问 数据 库 的 链接 字符 串 ， 如 图 5-10 所 示 。 

(4) 单 击 “ 下 一 步 ”按钮 ， 如 果 这 是 第 一 次 使 用 数据 源 控件 链接 该 数据 库 ，Visual 
Web Developer 将 询问 是 否 将 链接 字符 串 保 存 到 应 用 程序 配置 文件 中 ， 建 议 选 择 “ 是 ” 
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apes VE" AutükventWireup: false” CodeFile 
DP FA-\WebSitel\ 
4 L3 App Date 
v3, orz/1999/xhta1'» 4 [gj FiretOstabace. maf 
) FirstDatabase logC " 


PUBLIC ^-//W3C//DTD XHTML 1.0 Transitionsl//EN” “http://www, w3. d 


[7] MasterPage-master 
E SalData.aspx 


$qlDataSourcel System Web.ULW ~ 
22 Oh} a be} 
CacheKeyDep- 
EnableCachine False 
SalCacheDepe 


(Expressions) 
CancelSelectO True 
(Expressions) 
A 
E 
图 5-9 添加 SqlDataSource 控件 界面 bs 
E 
f&mmmS SqlDotosoureel HS 9 8 00 mn 2E 
ir 选择 各 的 数据 连接 访 
> x 
| [n] 
SIRS CLA PA URGE (v) 数 
FrstDatabase.mdf ”| | RERO- 
© iem) ju 
Data Source" ASQLEXPRESS AttachDbfilename =|DataDirectory|\FirstDatabase.mdt integrated a 库 


Securitys True:User Instances True 


cen: 
图 5-10 “ACE” oo idt 
如 果 将 链接 字符 串 信 息 保 存在 Web 应 用 程序 的 配置 文件 中 , 将 在 web.config 文件 中 
自动 插入 新 设置 ， 将 这 一 步 提 供 的 链接 名 称 与 链接 字符 串 关 联 起 来 。 这 种 方式 最 大 的 优 

点 是 它 在 应 用 程序 中 添加 了 一 种 间接 引用 ， 使 得 网 站 更 易 修改 、 维 护 。 
(5) 单 击 “下 一 步 ” 按 钮 ， 配 置 select 语句 ， 指 定 从 数据 库 中 检索 数据 的 方式 ， 如 

图 5-11 所 示 。 

如 果 选 择 “ 指 定 自 定义 SQL 语句 或 存储 过 程 ” 选项 ， 可 通过 向导 选择 表 并 指定 要 检 


IHI 


索 的 列 。 如 果 选 择 “ 指 定 来 自 表 或 视图 的 列 ” 选项， 则 需要 精确 地 输入 合适 的 SQL 查询 。 
两 种 方式 的 最 终结 果 相 同 。 

(6) 单 击 “ 下 一 步 ”按钮 ， 进 入 “测试 查询 ”页 面 。 如 果 要 结束 向 导 ， 单 击 “ 完 
成 ”按钮 ; 如 果 要 预览 数据 源 返 回 的 数据 ， 单 击 “ 测 试 查 询 ” 按 钮 ， 效 果 如 图 5-12 所 示 。 
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|| © menm SQA ATRI 
| @ tier) | 


li BPRM): | 
"1 users 
| gm» | 
ED D REI) 
I"10 
i IF] name WHERE (W). 
H ] age 
Il E addre | EOS RU 
i ] LastLogi SS 
M 
| | 
| 
SELECT 语句: 
SELECT * FROM [users] 
| 
| 
| ET ean O) 


图 5-11 配置 select 语句 


9dfkdioly; 2011/9/29 14.00 
asdíiddekr — 2012/6/12 1200 
fhdigtighlihcg 2012/7/18 13:00 


SELECT WON): 


图 5-12 ”测试 查询 


如 果 没 有 得 到 预期 的 查询 结果 ， 可 以 单 击 “ 上 一 步 ”按钮 重新 配置 查询 。 
此 时 切换 到 源 视图 ， 可 以 看 到 如 下 所 示 的 代码 : 
«asp:SqlDataSource ID="SqlDataSourcel" runat="server" 
ConnectionString="<%$ ConnectionStrings:ConnectionString %>" 
SelectCommand="SELECT * FROM [users]"></asp:SqlDataSource> 


下 面 简要 介绍 一 下 SqlDataSource 控件 的 一 些 属性 。 

e ID: 唯一 地 标识 数据 源 控件 。 

€ ConnectionString: 指定 用 于 链接 到 数据 库 的 链接 字符 串 。<%$ Connection 
Strings:ConnectionString %> 告 诉 数据 源 控件 从 应 用 程序 的 配置 文件 中 检索 合适 
的 信息 。 如 果 没 有 将 链接 字符 串 保 存在 web.config 中 ， 将 显示 为 完整 的 链接 字 
TER. 
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€  SelectCommand: 指定 向 数据 库 发 出 的 Select 查询 。 

在 这 里 需要 注意 的 是 ， 数 据 源 控件 仪 检 索 数 据 库 数 据 ， 并 不 能 在 网 页 中 显示 检索 的 
数据 。 因 此 在 浏览 器 中 预览 上 述 页 面 时 并 不 显示 查询 到 的 数据 。 如 果 要 在 网 页 上 显示 碍 
询 结果 ， 需 要 使 用 数据 控件 ， 如 GridView、DetailsView、DropDownList 等 。 有 关 数 据 
控件 的 介绍 可 以 参见 本 书 前 一 章 。 


54 存储 过 程 管理 


存储 过 程 是 SQL Server 服务 器 上 一 组 预先 编译 好 的 SQL 语句 ， 它 以 一 个 名 称 存 储 
在 数据 库 中 。 存 储 过 程 可 以 接收 和 输出 参数 、 返 回执 行 存 储 过 程 的 状态 值 ， 还 可 以 拒 套 
调用 。 存 储 过 程 有 如 下 优点 : 


v ， 可 用 存储 过 程 封装 事务 规则 。 

v ”通过 存储 过 程 可 以 传 入 参数 并 得 到 返回 参数 。 第 
v ”存储 过 程 可 以 被 设置 成 在 SQL Server 启动 时 自动 执行 。 P 
v 存储 过 程 可 用 来 扩充 数据 或 修改 数据 。 F 
v 存储 过 程 执行 速度 快 。 访 
v ”存储 过 程 能 够 提高 工作 效率 。 In] 


存储 过 程 分 为 系统 存储 过 程 、 扩 展 存储 过 程 和 用 户 自 定义 存储 过 程 三 种 。 其 中 HE 
统 存储 过 程 以 sp_ 开 头 ， 用 来 进行 系统 的 各 项 设 定 ， 取 得 信息 相关 管理 工作 。 系 统 存储 库 
过 程 可 从 任何 数据 库 中 执行 系统 存储 过 程 ， 而 无 需 使 用 master 数据 库 名 称 来 完全 限定 
该 存储 过 程 的 名 称 。 扩 展 存储 过 程 以 XP_ 开 头 ， 用 于 调用 操作 系统 提供 的 功能 。 如 果 用 
户 创 建 的 存储 过 程 与 系统 存储 过 程 同名 ， 则 永远 不 执行 用 户 创建 的 存储 过 程 。 

存储 过 程 的 语法 如 下 : 
CREATE PROC [ EDURE ] procedure name [ ; number | 

[ ( @parameter data type } 

[ VARYING ] [ = default ] [ OUTPUT |] 


] E oocom] 
[ WITH 


( RECOMPILE | ENCRYPTION | RECOMPILE , ENCRYPTION } | 


[ FOR REPLICATION ] 


AS sql statement [ ...n ] 
€ VARYING: 指定 作为 输出 参数 文 持 的 结果 集 ， 仪 适用 于 游标 参数 。 
€ Default: 指定 参数 的 默认 值 。 如 果 定 义 了 默认 值 ， 不 必 指 定 该 参数 的 值 即 可 执 
行 过 程 。 默 认 值 必须 是 常量 或 NULL. 
@ OUTPUT: 表示 此 参数 是 可 传 回 的 。 
€ RECOMPILE: 表示 每 次 执行 此 存储 过 程 时 都 重新 编译 一 次 。 


€ ENCRYPTION: 表示 所 创建 的 存储 过 程 的 内 容 会 被 加 密 。 
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© n: 表示 最 多 可 以 指定 1024 个 参数 的 占 位 符 。 

€ FOR REPLICATION: 指定 不 能 在 订阅 服务 器 上 执行 为 复制 创建 的 存储 过 程 。 
本 选项 不 能 和 WITH RECOMPILE 选项 一 起 使 用 。 

€ AS: 指定 过 程 要 执行 的 操作 。 

€ sql statement: 指定 过 程 中 要 包含 的 任意 数目 和 类 型 的 Transact-SQL. 语句 。 


[5. 4.1 新 建 存储 过 程 


CL) 打开 数据 库 资源 管理 器 ， 在 树 状 目录 中 展开 数据 库 节点 。 
(2) 在 节点 “存储 过 程 ” 上 单 击 鼠 标 右键 ， 在 弹出 的 快捷 菜单 中 选择 “添加 新 存 
储 过 程 ” 命 令 。Visual Web Developer 将 弹出 图 5-13 所 示 的 编写 存储 过 程 的 窗口 。 


dboStoredProcedur e s ee iei 3b3e-AS.FAUSE.. -0x 
CREATE PROCEDURE dbo. + 


ena 


图 5-13 编写 存储 过 程 的 窗口 
在 这 里 可 以 修改 存储 过 程 的 名 称 和 参数 ,声明 存储 过 程 的 参数 的 格式 为 @ 参 数 名 数 
据 类 型 , 参数 之 间 用 喜 号 分 隔 ， 最 后 一 个 参数 不 用 分 隔 号 。 存 储 过 程 的 参数 主要 有 两 种 : 
输入 参数 和 输出 参数 ， 输 出 参数 类 型 后 需要 加 关键 字 OUTPUT, WB 5-13 所 示 。 

(GO 输入 创建 存储 过 程 的 语句 。 

现在 分 析 一 下 上 面 创建 的 存储 过 程 ， 该 存储 过 程 代码 如 下 : 


CREATE PROCEDURE GetAllStudents AS 


SELEC 
FROM student 
GO 


首先 ，CREATE PROCEDURE GetAllStudents 语句 说 明了 当前 要 创建 一 个 存储 过 程 ， 
且 该 存储 过 程 的 名 称 为 GetAllStudents， 接 着 的 AS 语句 表明 在 AS 后 面 将 出 现 该 存储 过 
程 要 执行 的 SQL 语句 集合 。 在 AS 后 面 是 读者 已 经 非常 熟悉 的 SELECT 语句 。 


(05.4.2 修改 存储 过 程 


C1) 打开 数据 库 资源 管理 器 ， 在 树 状 目录 中 展开 存储 过 程 所 在 的 数据 库 节 点 。 

(2) 在 需要 修改 的 存储 过 程 中 单 击 鼠 标 右键 ， 在 弹出 菜单 中 选择 “打开 ”命令 。 
(3) 打开 图 5-13 所 示 的 窗口 对 存储 过 程 进行 修改 。 

在 第 (2) 中 选择 “属性 ”命令 ， 可 以 在 “属性 ”对 话 框 中 查看 存储 过 程 的 名 称 和 


CO — 


程序 集 名 称 。 
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[5.4.3 执行 存储 过 程 


为 了 在 应 用 程序 中 执行 存储 过 程 ， 需 要 把 存储 过 程 的 名 称 赋 给 命令 文本 ， 同 时 将 命 
令 的 CommandType 属性 设置 为 存储 过 程 。 如 果 存 储 过 程 返 回 值 ， e aon 还 
必须 创建 参数 ， 并 把 创建 的 参数 添加 到 命令 的 Parameters 集合 中 。 下 面 通过 一 个 简单 实 
例 演示 存储 过 程 的 执行 步骤 。 

(1) 在 数据 库 Student 中 添加 如 下 名 为 UpdateStudentInfo 的 存储 过 程 : 

CREATE PROCEDURE UpdateStudentInfo 

( 


@userName nvarchar (50), 


@userID nvarchar (50) 


AS E 
Nn 
Update student 35 
Set sName = @userName 
Where ID = @userID Wi 
cO ja] 
Zi 
每 一 个 存储 过 程 都 包括 一 个 或 多 个 SQL 语句 。 为 了 指明 是 存储 过 程 一 部 分 的 SQL JE 
语句 ， 只 需 简单 地 在 关键 词 AS 后 面包 含 它们 。 Hr 


(2) 创建 一 个 Command 对 象 ， 并 将 存储 过 程 名 称 传 入 它 的 构造 函数 : 


Dim conn As New SqlConnection (ConnectionString) 


Dim cmd As New SqlCommand("UpdateStudentInfo", conn) 
(3) 把 命令 的 CommandType 属性 设置 为 StoredProcedure: 
cmd.CommandType = CommandType.StoredProcedure 
(4) fEH] EXECUTE 语句 执行 存储 过 程 。 
EXECUTE UpdateStudentInfo 


当 执行 该 存储 过 程 时 ， 所 有 包括 在 其 中 的 SQL 语句 都 会 执行 。 


[5. 4.4 删除 存储 过 程 
对 于 不 再 需要 的 存储 过 程 ， 可 以 使 用 企业 管理 器 将 其 删除 。 
C1) 打开 数据 库 资 源 管 理 器 ， 在 树 状 目录 中 展开 存储 过 程 所 在 的 数据 库 节 点 。 
(2) 在 要 删除 的 存储 过 程 上 单 击 鼠标 右键 ， 在 弹出 菜单 中 选择 “删除 ”命令 。 


T 


(30 在 弹出 的 确认 删除 对 话 框 中 单 击 “ 是 ”按钮 ， 将 选 定 的 存储 过 程 从 数据 库 
点 中 永久 删除 。 


第 6 章 在 线 书店 实例 


Cd kae 


C 随 着 B2B 的 兴起 ， 电 子 商 务 成 为 一 个 很 热门 的 话题 。 而 网 上 购物 作为 ; 


| B2C 的 一 种 主要 商业 形式 ， 取 得 了 巨大 的 成 功 。 比 如 大 家 熟悉 的 8848 和 当 | 
; 当 网 站 ， 这 样 的 系统 都 是 大 型 的 企业 应 用 ， 作 为 一 般 的 中 小 企业 ， 没 有 相应 ， 
:的 技术 条 件 去 开发 和 维护 这 样 规模 的 Web 应 用 。 但 是 中 小 企业 也 迫切 需要 ; 
| 跟 上 信息 化 的 步伐 ，ASPNET 作为 一 种 主流 的 动态 网 页 技术 为 这 样 的 需求 : 
， 提 供 了 可 能 。 


本 章 将 向 读者 介绍 一 个 电子 商务 系统 的 一 个 实例 一 网 上 书店 。 在 系统 ; 


: 的 实现 过 程 中 ， 将 讲述 一 些 基本 的 通用 的 ASPNET 技术 以 及 一 些 独特 的 技 | 
: 术 细 节 ， 让 读者 对 电子 商务 有 个 大 概 的 了 解 ， 如 果 想 要 更 深入 地 学 习 并 开发 | 
\ 出 一 个 真正 能 够 承受 住 大 流量 的 应 用 ， 还 需要 更 多 的 知识 。 ; 
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6.1 


本 节 介 绍 在 线 书 / 


[16. 1. 1 


览 器 访问 本 在 线 书 店 ， 


雪 的 总 体 功 


项 目 目标 
本 系统 的 设计 目标 是 开 


并 浏览 、 


顾客 在 浏览 图 书 时 可 以 方便 地 将 图 书 放 入 购物 车 。 
书 , 系统 提供 了 搜索 功能 ， 


提高 了 购物 的 效率 。 


评论 。 


一 旦 顾客 希望 提交 
并 非 注册 用 户 ， 则 必须 先 沪 
登录 以 后 查看 自己 的 订单 列表 


根据 顾客 所 指 


[Lle.1.2 解决 方案 设计 


显 不 适合 。C/S 通常 


Internet 上 的 Web 应 ) 


i 需要 的 是 B/S (客户 /浏览 器 


浏览 


互 功能 


中 ， 这 种 方式 的 客户 端 简单 易学 
根据 上 面 的 分 析 ， 


。 后 台 的 数据 库 则 使 用 SQL Server. 


E 册 然后 再 提交 购物 车 。 
以 及 订单 详细 信息 。 


， 培 训 成 本 低 。 
确定 系统 运行 在 微软 的 Windows NT 系列 平台 上 ， 使 | 


系统 总 体 设计 


能 以 及 结构 设计 等 内 容 。 


发 一 个 中 小 型 的 基于 Web 的 书店 人 
购买 自己 喜爱 的 图 


Be 


) Ae 架构 。 


为 了 方便 顾客 查找 所 感 兴趣 的 
定 的 搜索 条 件 能 够 迅速 定位 到 顾客 需要 的 商品 ， 
购物 车 到 收银 台 则 必须 完成 登录 操作 。 如 果 顾 客 
注册 后 的 网 友 即 为 会 员 ， 会 员 可 以 在 
另外 ， 所 有 的 顾客 都 可 以 对 书籍 发 表 


， 例 如 管理 信息 系统 。 


HEEL 顾客 能 够 通 


前 过 浏 


7 


由 于 系统 的 定位 是 一 个 网 上 购物 系统 ， 是 一 个 电子 商务 站 点 ， 传 统 的 C/S 架构 很 明 
适合 于 开发 面向 企业 内 部 的 应 用 


作为 面向 


B/S 架构 的 客户 端 使 


服务 器 作为 Web 服务 器 ， 使 用 Dreamweaver CS6 设计 页 面 ， 
系统 的 架构 图 如 图 

用 户 注册 、 登 录 。 分 类 管理 。 

图 书 分 类 列表 Bees. 

查询 图 书信 息 。 TESE 

浏览 图 书 。 

发 表 评 论 。 

订购 图 书 。 

修改 订单 ， 

前 台 功 能 


SQL Server 数据 库 。 


6-1 所 示 : 


Windows 7 /NT,Dreamweaver, SQL Server,ASP.NET,VB.NET+ | 


图 6-1 


AS EUR 


设计 


] IIS 信息 


UH] ASP.NET 完成 动态 交 
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[[Lle.1.3 系统 模块 功能 分 析 


本 系统 采用 三 层 结构 开发 ， 位 于 表现 层 的 是 BookStore 项 目 (ASP.NET 应 用 程序 )， 
位 于 事务 逻辑 层 的 是 DataAccess 项 目 ， 位 于 数据 存储 层 的 为 SQL Server 中 的 Bookstore 
数据 库 。 系 统 层次 结构 如 图 6-2 所 示 。 


应 用 程序 层 <> BookStore 项 目 


| 


D 
业务 逻辑 层 二 一 一 一 A DataAccess 项 目 
ZN 


I 


数据 存储 层 EL Bookstore 数据 库 


2 


图 6-2 系统 层次 结构 图 

本 系统 主要 包括 以 下 几 个 模块 : 

1. MAEM. BR 

一 个 网 上 的 购物 站 点 首先 应 有 的 功能 就 是 能 够 定位 访问 的 每 个 顾客 。 在 网 站 中 几乎 
所 有 可 以 与 顾客 交互 的 界面 上 与 顾客 的 接口 ) 都 提供 了 顾客 登录 接口 。 在 顾客 登录 后 ， 
才 可 以 完整 地 跟踪 顾客 的 行为 。 顾 客 也 只 有 登录 后 才 可 以 购买 和 查看 订单 。 

第 一 次 访问 购物 系统 的 浏览 者 可 能 被 站 点 吸引 ， 有 了 购买 某 些 图 书 的 欲望 ， 这 时 他 
(她 ) 需要 注册 ， 以 便 能 够 使 用 Web 应 用 所 提供 的 功能 。 

2 浏览、 查询 书籍 

经 验 和 权威 的 统计 数据 表明 ， 当 一 个 顾客 来 到 一 个 网 上 购物 站 点 时 ， 通 常会 有 明确 
的 目标 性 。 因 此 一 个 购物 站 点 应 该 提供 让 顾客 迅速 发 现 和 查找 到 他 所 感 兴趣 的 商品 的 功 


eu 
HE o 


通过 多 种 不 同 的 商品 展现 方式 ， 顾 客 很 容易 发 现 需 要 的 图 书 。 最 常见 的 展示 方式 是 
根据 图 书 的 分 类 信息 来 进行 的 ， 例 如 程序 设计 、 科 幻 小 说 。 分 类 信息 在 后 台 由 管理 员 进 
行 维护 。 

3. 订购 书籍 

当 顾 客 在 浏览 或 者 查找 后 发 现 自己 所 心仪 的 图 书 时 ， 此 时 他 会 有 购买 的 欲望 。 顾 客 
可 以 直接 选择 购买 ， 就 会 转移 到 订购 模块 。 如 果 顾 客 订购 成 功 ， 会 返回 一 个 订购 成 功 的 
页 面 ， 并 且 详 细 列 出 顾客 所 提交 的 订单 的 信息 。 

如 果 顾 窜改 变 了 主意 ， 想 放弃 某 些 图 书 ， 那 么 可 以 选择 “ 移 除 ”功能 从 购物 车 中 删 
除 指定 的 图 书 。 
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4. 订单 管理 


当 顾 客 确定 了 购物 车 中 的 图 书信 息 并 且 提 交 了 订单 以 后 ， 依 据 购 物 车 中 的 图 书信 息 
构建 订单 信息 并 显示 以 供用 户 核查 ， 用 户 核查 完毕 以 后 可 以 提交 付款 。 


[6.1.4 网 站 的 整体 结构 
本 章 将 要 制作 的 网 站 的 系统 结构 如 图 6-3 所 示 。 


查 m " 
用 看 [^ iT 音 发 
户 图 E if it E: 
4 s 处 A a Di 
2 | ü E | ü ve 


图 6-3 系统 结构 图 
整个 项 目 文件 对 应 的 文件 架构 如 图 6-4 所 示 。 


日 = 

H- App_Code 

+ oe App_Data 

+ e Bin 

+ B BookImages 第 

+) ess CN 

+- Data 章 

+ B DataÁccess 

+ e images 在 

E e modules b: 

FE  Winürder 线 
To) addToCart. aspx 1KB 书 
TO addToCart. as... 1KB 店 
TO BookDetails.... 4KB 实 
=) BookDetails.... 3 了 例 
TO BookList. aspx 3KB 
=) BookList. asp... 2KB 


图 6-4 系统 文件 架构 图 
其 中 ，App_Code 文件 夹 由 系统 自动 生成 ， 存 放 系 统 公用 的 类 文件 ，App_Data 文件 
夹 由 系统 自动 生成 : Bin 文件 夹 存放 应 用 程序 运行 时 自动 生成 的 .dll 文件 ，BookImages 
存放 图 书 的 封面 图 片 ，CSS 文件 夹 存放 项 目的 样式 表 ;，Data 目录 存放 系统 后 台数 据 库 ; 


DataAccess 文件 夹 存放 项 目 实体 的 类 文件 ，images 目录 存放 系统 用 到 的 图 片 ，modules 
目录 存放 系统 中 自 定义 的 用 户 控件 ，WinOrder 目录 存放 项 目的 Web 服务 的 相关 文件 ; 
站 点 根 目录 下 的 其 他 文件 为 系统 的 网 页 文件 。 

图 中 各 文件 目录 与 界面 的 对 应 关系 见 表 6-1 一 表 6-5. 
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表 6-1 ”在 线 书店 网 页 设计 表 
需要 制作 的 主要 页 面 页 面 名 称 需要 制作 的 主要 页 面 页 面 名 称 
页 Default.aspx ] 户 登录 页 面 Login.aspx 
登录 成 功 页 面 welcome.aspx 注册 、 登 录 失 败 页 面 ErrorPage.aspx 
新 用 户 注 册页 面 Register aspx 图 书 列表 BookList.aspx 
订单 列表 OrderList.aspx 订单 详细 信息 OrderDetails.aspx 
妈 书 详细 信息 BookDetails.aspx 添加 图 书 到 购物 车 addToCart.aspx 
购物 车 信息 列表 ShoppingCart.aspx 发 表 评 论 ReviewAdd.aspx 
到 书 搜索 结果 SearchResults.aspx | 审核 并 递交 订单 CheckOut.aspx 
46-2 App_Code 目录 下 的 文件 设计 表 
需要 制作 的 主要 页 面 页 面 名 称 
所 有 Web 页 面 的 父 类 BasePage.vb 
Sy HC. BUOY ID ShoppingCartID.vb 
表 6-3 DataAccess 目录 中 的 文件 设计 表 
需要 制作 的 主要 页 面 页 面 名 称 
图 书 实 体 类 Book.vb 
书籍 信息 相关 的 数据 访问 类 BookDB.vb 
注册 用 户 实体 类 Customer.vb 
注册 用 户 信 息 相关 的 数据 访问 类 CustomerDB.vb 
订单 详细 信息 实体 类 OrderDetail.vb 
订单 处 理 的 数据 访问 类 OrdersDB.vb 
评论 处 理 的 数据 访问 类 ReviewDB.vb 
购物 车 处 理 的 数据 访问 类 ShoppingCartDB.vb 
表 6-4 Modules 目录 中 的 文件 设计 表 
C 需要 制作 的 主要 页 面 页 面 名 称 
ae 页 面 顶 部 Header.ascx 
A) 导航 羔 单 Menu.ascx 
oO 显示 评论 ReviewList.ascx 
cr 
CD 表 6-5 WinOrder 目录 中 的 文件 设计 表 
SS 需要 制作 的 主要 页 面 页 面 名 称 需要 制作 的 主要 页 面 页 面 名 称 
Co Web 服务 主 界面 frmMain.vb 订单 详细 信息 frmOrderDetail.vb 
C53 


6.2 ”系统 数据 库 设计 


[L]e.2.1 ERA 


与 其 他 实体 的 关系 ， 例 如 } 
web.config 文件 。 但 是 有 些 实体 之 间 是 存在 着 相互 关系 的 。E-R 


图 如 图 


头 所 指 的 方向 按照 约定 是 指 1:n 关系 的 一 方 。 如 果 两 边 都 没有 箭头 ， 


uy 


PE HAG eost vem m s 


则 是 


图 6-5 数据 库 的 ER 图 


[6.2.2 数据库 详细 设计 


本 项 目 使 用 SQL Server 作为 数据 库 , 其 
Developer "P Ei 


Create database Bookstore 


] 来 保存 系统 初始 配置 的 
6-5 所 示 ， 图 中 箭 


n m 关系 。 


出 于 篇 幅 的 考虑 ， 所 有 实体 或 关系 的 详细 字段 和 关键 字 并 未 列 出 。 后 面 的 数据 库 详细 设 


数据 库 名 为 Bookstore， 可 以 在 Visual Web 


C1) 建立 保存 图 书信 息 的 数据 库 表 Book， 结 构 如 表 6-6 所 示 。 


表 6-6 Book 表 的 结构 


接 建 立 Bookstore 数据 库 ， 也 可 以 通过 以 下 SQL 语句 来 建立 该 数据 库 : 


列 名 数据 类 型 长 度 允许 空 是 否 标识 说 明 
BookID int 4 fi 是 图 书 编号 ， 自 动 递增 型 
CategoryID int 4 f f 图 书 所 属 类 别 的 编号 
BookName nvarchar 50 E E 图 书 名 称 
BookAuthor nvarchar 50 T f 图 书 作 者 
BookBak nvarchar 3800 是 f 图 书 说 明 
BookCost money 8 是 f 图 书 单价 
BookImage varchar 50 是 f 图 书 的 预览 图 片 地址 
BookTime datetime 8 是 f 图 书 发 布 的 时 间 
BookPublisher | varchar 100 是 f 图 书 的 出 版 社 
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数据 库 建 立 好 以 后 ， 向 Book 表 中 输入 图 6-6 所 示 的 初始 数据 。 


y 


BookID CategoryID BookName BookAuthor BookBak BookCost Booklmage BookTime BookPublisher 
i 1 《语言 程序 设计 Æ 一 本 详细 潮解 C..。 32.0000 image.gif 2011/4/6 0:00..， 机 械 工业 出 版 社 
2 1 CATES B= 红皮书 系列 35.0000 image.gif 2012/4/28 0:0..， 电 子 工业 出 版 社 
6 2 ASP.NET 程 序 ...。 RŽ 一 本 难得 的 好 书 59.0000 image.gif 2012/8/28 0:0...， 人 民 上 邮电 出 版 社 
7 2 Flash CSGA[1.. $838 动感 设计 好 书 . 45.0000 image.gif 2012/10/9 0:0... 清华 大 学 出 版 社 
8 2 PhotoshopS... 高 高 名 家 和 名作, &.. 65.0000 image.gif 2011/12/12 0:..， 清 华 大 学 出 版 社 
9 3 天 使 泪眼 原 上 草 言情 小 说 中 的 ..。 28.0000 image.gif 2012/12/23 0:.. 化 语 出 版 社 
10 4 北斗 七 星 与 数学 BEF 详细 研究 北斗 星 32.0000 image.gif 2010/9/22 0:0... 电子 工业 出 版 社 
11 4 微 积分 与 围棋 默默 应 用 微 积分 来 .。 56.8000 image.gif 2009/12/12 0:.， 机 械 工业 出 版 社 
12 5 ECHO... EF 详细 探讨 天 体 .， ”89.0000 image.gif 2010/10/23 0:.， 电 子 工业 出 版 社 
13 5 天 体 运动 黄 药 师 好 书 , 好 书 , ..， 67.0000 image.gif 2011/3/14 0:0..， 机 械 工业 出 版 社 
14 6 SPS SEn SEPRE 39.0000 image.gif 2011/3/12 0;0..， 化 语 出 版 社 
15 6 铜 尸 的 秘密 sn 惊悚 之 作 , 5.. 39.0000 image.gif 2012/3/16 0:0..， 化 语 出 版 社 
> NULL NULL NULL NULL NULL NULL NULL NULL 
图 6-6 表 Book 的 初始 数据 


图 书 的 类 别 信息 JA zh 寺 构 见 表 0- 7。 
表 6-7 Category 表 的 结构 


长 度 允许 空 


(2) 表 Category 保存 


列 名 数据 类 型 是 否 标 识 说 明 


CategoryID int 4 f 是 类 别 编号 ， 自 动 递增 型 
CategoryName nvarchar 50 T ff 类 别名 称 
表 Category 建立 好 后 输入 如 图 6-7 所 示 的 初始 数据 。 
CategoryID CategoryNa... 
1 程序 设计 
2 cma 
文学 类 
4 数字 类 
5 w 
» d 科幻 小 说 


mi 


图 6-7 Category 的 初始 数 ] 


(3) 表 Customers 保存 注册 用 户 的 信息 ， 结 构 见 表 6-8. 
表 6-8 Customers 表 的 结构 


列 名 数据 类 型 长 度 允许 空 是 否 标 识 说 明 
CustomerID int 4 f 是 户 编号 ， 自 动 递增 型 
FullName nvarchar 50 ff f 用 户 名 
EmailAddress nvarchar 50 T T 了 箱 地 址 
Password nvarchar 50 f f 密码 
€ (4) 表 OrderDetails 保存 订单 的 详细 信息 ， 结 构 见 表 6-9。 
ES- 表 6-9 OrderDetails 表 的 结构 
ja) 列 名 数据 类 型 长 度 | 允许 空 | 是 否 标识 说 明 
TO | petailp in 4 5 是 nde. Daun 
cr OrderID int 4 f f 订单 编号 
《D ProductID int 4 f ff 到 书 编号 
E Quantity int 4 f f 所 购买 的 图 书 数量 
OO UnitCost money 8 f f 到 书 单价 
O 
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(5) 表 Orders 保存 所 有 的 订单 信息 ， 
表 6-10 Orders 表 的 结构 


结构 见 表 


6-10. 


列 名 数据 类 型 长 度 NFZ 是 否 标识 说 明 
DetailID int 4 T 是 HAMM. Hag 
OrderID int 4 fi f 订单 编号 
ProductD int 4 f ff 图 书 编号 
Quantity int 4 f T 所 购买 的 图 书 数量 
UnitCost money 8 f f 图 书 单价 


(6) 表 Reviews 保存 网 友 对 图 书 的 评价 信息 ， 结 构 见 表 6-11. 
表 6-11 Reviews 表 的 结构 


列 名 数据 类 型 长 度 允许 空 是 否 标 识 说 明 
ReviewID int 4 f 是 评论 编号 ， 自 动 递增 型 
ProductD int 4 f T 图 书 编号 
CustomerName | nvarchar 50 ff ff 评论 人 姓名 
CustomerEmail nvarchar 50 T ff 评论 人 邮箱 地 址 
Rating int 4 f T 评价 等 级 
Comments nvarchar 3800 ff ff 评论 内 容 
C7) X ShoppingCart 保存 当前 在 线 书 店 中 所 有 网 友 / 会 员 的 购物 车 信息 ， 结 构 见 表 
0-12。 
表 6-12 ShoppingCart 表 的 结构 第 
列 名 数据 类 型 KE | NFF | 是 否 标 识 说 明 xm 
RecordID int 4 T 是 记录 编号 T 
CartID nvarchar 50 f T 购物 车 编号 在 
Quantity int T f 图 书 数量 ， 默 认为 1 线 
BookID int ff T 图 书 编号 
DateCreated | datetime 8 ff fr 购物 车 生成 时 间 ， 默 认为 getdateO 实 
以 上 步骤 可 以 通过 编写 SQL 命令 在 查询 分 析 器 中 执行 实现 ， 相 关 代 码 保存 在 光盘 例 


source/Bookstore/Data 目录 下 ， 文 件 名 为 Database.sql。 


本 节 建 立 Bookstore 网 站 ， 
位 于 光盘 source/Bookstore/Web 目录 下 。 
d) 在 硬盘 合适 的 位 置 建立 Bookstore X TES. 


(2) 启动 Visual Web Developer, # 


E ndi 


6.3 建立 Bookstore 网 站 


性 文件 和 代码 。 本 节 项 目 Bookstore 的 源 代码 


f 建 名 为 Bookstore 的 ASPNET 网 站 。 


(3) 在 “解决 方案 资源 管理 器 ”中 选择 文件 夹 Style. 
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(4) 


Tat BU 


/* 


E» 


择 “ 模 板 ”为 “样式 表 ”， 


键 ， 在 弹出 的 快捷 菜单 中 选择 “添加 新 项 ” 在 弹出 的 对 话 框 
命名 为 BookStore.css。 在 BookStore.css 中 输入 如 下 代码 : 


网 上 书店 样式 表 


[f s 
.HomeHead 


{ 


color: #999966; 
font-family: 宋体 ; 
font-size: 20px; 
font-weight: bold; 


HEIGHT: 35px 
} 

aa 
.ContentHead 


{ 


background-color: 


color: dimgray; 
font-family: 宋体 ; 
font-size: 20px; 
font-weight: bold; 


height: 


后 面 的 代码 省 略 ， 


(5) 添加 新 文件 夹 images， 然 后 在 images 文件 夹 中 依次 添加 本 项 目 需 要 用 到 的 图 


35px 


请 读者 参见 光盘 


#dddca3; 


source/Bookstore/ css 目录 下 的 文件 。 


片 。 这 些 可 以 在 光盘 source/Bookstore/image 目录 下 找到 。 
(6) 添加 新 文件 夹 BookImages， 并 在 该 文件 夹 下 添加 图 片 image.gif 和 sample.gif。 
r mi 目录 下 找到 。 


这 两 者 同样 可 以 在 光盘 


C7) 添加 新 文件 夹 modules, FAI 


(8) 修改 Web.config 配置 文件 ， 添 加 appSettings 节点 ， 设 置 数据 库 连 接 字 符 串 ， 


保存 后 面 将 要 设计 的 Web 用 户 控件 。 


配置 错误 处 理 以 及 用 户 信息 验证 。 修 改 后 的 Web.config 文件 代码 如 下 : 


<?xml version="1.0" encoding-"utf-8" ?> 


«configuration» 


<appSettings> 


<add key="ConnectionString" value-"server-bineon;User ID=sa; 
Password=admin; database=BookStore" /> 


</appSettings> 
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<system.web> 


<!-— 动态 调试 编译 
设置 compilation debug="true" 以 
将 提高 此 应 用 程序 的 运行 时 性 能 。 
WE compilation debug="true" 以 将 调试 符号 (.pdb 信息 ) 插入 到 编译 页 中 。 
因为 这 将 创建 执行 起 来 较 慢 的 大 文件 ， 所 以 应 该 只 在 调试 时 将 此 值 设置 为 true， 
而 在 所 有 其 他 时 候 都 设置 为 false。 有 关 更 多 信息 ， 请 参考 有 关 调 试 ASP.NET 文件 的 文 


ult 


J ASPX 调试 。 和 否则， 将 此 值 设 置 为 false 


档 。 
一 一 > 
«compilation defaultLanguage="vb" debug-"true" targetFramework="4.0"> 
«assemblies» 
«add assembly-"System.Configuration.Install, 
Version-4.0.0.0, Culture-neutral, PublicKeyToken=B03F5F7F11D50A3A"/> 
«add assembly-"System.Management, Version-4.0.0.0, 
Culture-neutral, 
PublicKeyToken=B03F5F7F11D50A3A" /></assemblies></compilation> 


<!-- Ae XU VA EA 
设置 customErrors mode-"On"Zkü"Remoteonly" 以 启用 自 定 义 错误 信息 ， 或 设置 为 
"Off" 以 禁用 自 定义 错误 信息 。 

为 每 个 要 处 理 的 错误 添加 «error» 标记 。 
"On": 始终 显示 自 定 义 (友好 的 ) 信息 。 
"Off": 始终 显示 详细 的 ASP.NET 错误 信息 。 
"RemoteOnly": 只 对 不 在 本 地 Web 服务 器 上 运行 的 用 户 显 示 自 定义 (友好 的 ) 信息 。 

出 于 安全 目的 ， 建 议 使 用 此 设置 ， 以 便 不 向 远程 客户 端 显示 应 用 程序 的 详细 信息 。 


一 一 > 


<customErrors mode-"Off"/» 


<!-- 身份 验证 
此 节 设 置 应 用 程序 的 身份 验证 策略 。 可 能 的 模式 是 "Windows"、"Forms"、"Passport" 
和 "None" 


"None": 不 执行 身份 验证 。 
"Windows": IIS 根据 应 用 程序 的 设置 执行 身份 验证 (基本 、 简 要 或 集成 Windows). 
fr IIS 中 必须 禁用 匿名 访问 。 
"Forms": 为 用 户 提供 一 个 输入 凭据 的 自 定义 窗 体 (Wweb W) Ja, 

在 应 用 程序 中 验证 他 们 的 身份 。 用 户 和 凭据 标 记 存 储 在 Cookie rh. 
"Passport": 身份 验证 是 通过 Microsoft 的 集中 身份 验证 服务 执行 的 ， 
它 为 成 员 站 点 提供 单独 登录 和 核心 配置 文件 服务 。 


一 一 > 
«authentication mode="Forms"> 
«forms name="BookStoreAuth" loginUrl="login.aspx" protection-"All" 
pathz"/" /> 
«/authentication» 


<!-- 应 用 程序 级 别 跟 踪 记 录 


应 用 程序 级 别 跟踪 为 应 用 程序 中 的 每 一 页 启用 跟踪 日 志 输出 。 
设置 trace enabled-"true" 可 以 启用 应 用 程序 跟踪 记录 。 如 果 pageoutput= 


"true", 
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则 在 每 一 页 的 底部 显示 跟踪 信息 。 和 否则 ， 可 以 通过 浏览 web 应 用 程序 根 目 录 中 的 


"trace.axd" 
页 来 查看 应 用 程序 跟 踊 日志。 


一 一 > 
<ctrace 


enabled="false" 
requestLimit="10" 
pageOutput="false" 
traceMode="SortByTime" 
localOnly="true" 
/> 


<!-- ”会话 状态 设置 
默认 情况 下 ，ASP .NET 使 用 cookie 来 标识 哪些 请 求 属于 特定 的 会 话 
如 果 Cookie 不 可 用 ， 则 可 以 通过 将 会 话 标识 符 添加 到 URL m 
若 要 禁用 Cookie, iH sessionState cookieless="true". 


in 


一 一 > 
<sessionState 
mode-"InProc" 
StateConnectionString-"tcpip-127.0.0.1:42424" 
sqlConnectionString="data 
source=127.0.0.1;Trusted_Connection=yes" 
cookieless="false" 
timeout="20" 


/> 
<!-- 全 球 化 
此 节 设 置 应 用 程序 的 全 球 化 设置 。 
一 一 > 
«globalization 
requestEncoding-"utf-8" 
responseEncoding-"utf-8" 
/? 


«/system.web» 


< ZEKE > 
<location path="Checkout .aspx"> 
<system.web> 
<authorization> 
<deny users="?" /> 
</authorization> 
</system. web> 
</location> 
«location path="OrderList.aspx"> 
<system.web> 
<authorization> 
<deny users="?" /> 
</authorization> 
«/system.web» 
«/location» 
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«location path-"OrderDetails.aspx"» 
<system.web> 


<authorization> 
«deny usersz"?" /> 
«/authorization» 
«/system.web» 
«/location» 
«/configuration» 


(9) 在 “解决 方案 资源 管理 器 ” 中 选中 “解决 方案 Bookstore”， 单 击 右键 ,选择 “ 添 


加 新 项 ”命令 。 


C10) 在 弹出 的 对 话 框 中 输入 名 称 为 DataAccess， 在 模板 中 选择 “类 ”， 


的 保存 位 置 ， 然 后 单 击 “ 确 定 ” 按 钮 。 


选择 合适 


C11) 删除 DataAccess 项 目 中 默认 的 Classl.vb 文件 。 在 该 项 目 中 添加 表 6-3 中 的 类 


文件 。 添 加 类 文件 时 暂时 不 编写 任何 代码 。 


(12) 在 “解决 方案 资源 管理 器 ”中 选中 Bookstore 项 目 ， 单 击 右键 ， 


局 动 项 目 ”。 


选择 “ 设 为 


(13) 在 “解决 方案 资源 管理 器 ”中 选择 解决 方案 “Bookstore”， 单 击 右键 选择 “项 
目 依赖 项 ” 在 弹出 的 对 话 框 中 选择 项 目 BookStore， 勾 选 下 面 的 DataAccess 


单 击 “确定 ”按钮 完成 操作 。 


(14) 在 网 站 “Bookstore” 上 单 击 鼠 标 右键 ， 选 择 “ 添 加 引用 ”命令 。 


话 框 中 选择 “项 目 ” 选 项 卡 ， 选 中 DataAccess 项 目 ， 
按钮 完成 操作 。 


项 目 ， 然 后 


在 弹出 的 对 


此 时 ， 该 项 目 基 础 性 文件 已 经 设置 完毕 ， 下 面 将 进行 其 他 内 容 的 开发 。 


6.4 设计 项 目 中 的 Web 用 户 控件 


本 项 目 中 ,为 了 保证 整个 项 目 界面 风格 一 致 ， 部 分 办 


6-8 为 在 线 书店 的 首页 面 。 其 中 该 页 面 的 顶部 为 Web 
航 条 为 Web 用 户 控件 Menu.ascx。 另 外 本 项 目 中 还 有 


] 户 控件 Header.ascx, 


nix 


Lj 
ELM E 


图 6-8 在 线 书店 首页 面 


单 击 “选择 ”按钮 。 单 


MKH Web 用 户 控件 技术 。 图 


击 «f E" 


左边 书籍 导 


个 Web 用 户 控件 ReviewList.ascx, 
用 于 显示 图 书 的 评论 信息 。 下 面 分 别 对 这 三 个 控件 进行 介绍 。 
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(16.4.1 页 面 顶 部 Header. ascx 


Web 用 户 控件 Header.ascx 用 于 显示 每 个 页 面 的 顶部 信息 ， 包 含 1 个 Logo 图 标 、4 

个 链接 和 1 个 用 于 搜索 的 文本 框 。 实 现 步骤 如 下 : 
(1) 在 Bookstore 项 目 中 选中 module 文件 夹 ， 单 击 右键 ， 依 次 选择 “添加 新 项 ”/ 
“Web 用 户 控 件 ” 在 弹出 的 对 话 框 中 输入 名 称 Header.ascx。 
(2) 在 Dreamweaver 的 设计 视图 中 通过 表格 和 表单 对 顶部 控件 进行 布局 ， 然 后 插 


入 相关 的 文字 和 图 片 ， 设 计 完 成 后 的 效果 如 图 6-9 所 示 。 
ASRB.NEITIBOOKSTORE 


欢迎 访问 本 书店 ， 希 望 能 找 E] stanco MENNEEEEEEEN 


图 6-9 Headerascx 设计 视图 


(3) 切换 到 Dreamweaver 的 代码 视图 ,删除 HTML 文档 的 结构 标记 ， 如 <HTML>、 
<HEAD>、<TITLE> 和 <BODY> 标 记 , 并 复制 剩 下 的 HTML 代码 , 然后 切换 到 Header.ascx 
文件 的 源 视 图 ， 粘 贴 HTML 代码 ， 如 下 所 示 : 

«$8 Control Language="VB" AutoEventWireup-"false" CodeFile="Header.ascx.vb" 

Inherits-"modules Header" %> 

«$-- 
该 用 户 控件 用 来 现实 所 有 页 面 的 顶部 信息 

= OS 

<table cellspacing="0" cellpadding="0" width="100%" border="0"> 
«tr» 


«td colspan-"2" background-"images/grid background.gif" nowrap> 
«table cellspacing="0" cellpadding="0" width="100%" border="0"> 
LEES 
«td colspan-"2"» 
«img src-"images/most secretive place.gif"» 
«/td» 
<td align="right" nowrap> 
<table cellpadding="0" cellspacing="0" border="0"> 
<tr valign="top"> 
<td align="center" width="65"> 


€ «a href="Login.aspx" 
class="SiteLinkBold"><img src="../images/sign_in.gif" border="0"> 

D 登录 </a> 

A) </td> 

"C <td align="center" width="75"> 

e «a href-"OrderList.aspx" 
class="SiteLinkBold"><img src-"images/account.gif" border="0"> 

(D 账户 </a> 

m «/td» 

<td align="center" width="55"> 
Co «a href-"ShoppingCart.aspx" 
oO) 
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class="SiteLinkBold"><img src-"images/cart.gif" border="0"> 


购物 车 </a> 
</td> 
<td align="center" width="65"> 
<a 


href="http://localhost/BookstoreService/Bookstore.asmx" 
class="SiteLinkBold"><img src-"images/services.gif" border="0"> 
服务 </a> 
«/td» 
< 七 工 > 
«/tr» 
«/table» 
«/td» 
«td width="10">énbsp; 


«/td» 
f EET: 
«/table» 
«/td» 
«/tr» 
«tr» 
«td colspan="2" nowrap> 
` 创 建 一 个 表单 ， 用 户 输入 信息 以 后 1 SearchResults.aspx 负责 显示 搜索 到 的 信息 


«form method-"post" action-"SearchResults.aspx" id-"frmSearch" 
name-"frmSearch"» 
«table cellspacing="0" cellpadding="0" width="100%" 
border="0"> 
<tr bgcolor="#9d0000"> 
<td background="images/modernliving_bkgrd.gif"> 
<img align- leet 
src="images/modernliving.gif"> 
</td> 
«td width="94" align="right" bgcolor="#9d0000"> 
<img src="images/search.gif"> 


</td> 
<td width="120" align="right" bgcolor="#9d0000"> 
<input type="text" name="txtSearch" 
ID="txtSearch" SIZE="20"> 
</td> 
<td align="left" bgcolor="#9d0000"> 
énbsp; <input type="image" 
src-"images/arrowbutton.gif" border="0" id-"imagel" name="imagel">&nbsp; 
</td> 
</tr> 
</table> 
</form> 
</td> 
</tr> 
</table> 
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(4) TZ F7 键 切换 到 Header.ascx.vb 文件 ， 在 文件 顶部 添加 Namespace modules， 在 


文件 尾部 添加 End Namespace。 

至 此 ，Header.ascx 设置 完毕 。 

\ iE: 

SP 读者 参照 本 节 的 步骤 制作 好 ascx 文件 后 ， 在 其 他 页 面 中 引用 该 文件 时 会 
发 现 其 中 的 图 片 无 法 显示 。 这 是 因为 页 面 中 的 图 片 位 于 images ARTF, 而 
Header. ascx 文件 位 于 modules 目录 下 ， 如 果 要 在 Header. ascx 文件 中 显示 图 片 ， 则 
图 片 地 址 应 为 ../images/*.gif。 但 是 由 于 将 引用 Header.ascx 文件 的 页 面 ( 如 
Default.aspx 文件 ) 位 于 Bookstore 目录 下 ， 则 在 Default.aspx 中 显示 图 片 应 该 直 
接 使 用 images/*.gif， 故 在 设计 Header.ascx 文件 时 也 应 该 使 用 该 地 址 ， 所 以 在 
Dreamweaver 中 设计 好 ascx 文件 的 页 面 布 局 后 ， 应 将 页 面 中 的 图 片 的 目录 改 为 
images/*. gif. 这 样 , 虽然 在 设计 时 无 法 看 到 图 片 , 程序 运行 时 将 能 看 到 正确 的 效果 .。 


[L]e.4.2 导航 菜单 Menu. ascx 
数据 库 中 数据 分 类 信息 。 该 控件 使 用 DataList 来 


A 


Web 用 户 控件 Menu.asex fA vi 57 
显示 栏目 信息 。 该 控件 的 实现 步骤 如 下 : 
(1) 在 Modules 文件 夹 中 添加 新 的 Web 用 户 控件 ， 命 名 为 Menu.ascx。 
(2) 在 Dreamweaver 中 设计 Menu.ascx 的 页 面 布局 , 然后 复制 到 Menu.ascx 文件 的 
源 视 图 ， 修 改 ASP.NET 代码 如 下 : 
«$80 OutputCache Duration="3600" VaryByParam-"selection" %> 
«$8 Control Language-"vb" AutoEventWireup-"false" CodeFile-"Menu.ascx.vb" 


Inherits-"BookStore.modules.Menu" 
TargetSchema="http://schemas.microsoft.com/intellisense/ie5"%> 


7i 


该 用 户 控件 依据 数据 库 中 category 表 中 图 书 分 类 信息 显示 导航 荣 单 。 
该 导航 菜单 将 出 现在 页 面 的 左边 ， 同 时 单 击 该 菜单 项 将 链接 至 对 应 类 别 的 书籍 信息 页 面 。 


--$» 
«table cellspacing="0" cellpadding="0" width="145" border="0"> 
<tr valign="top"> 
<td colspan-"2" style-"WIDTH: 151px"> 
<a href="default.aspx"><img src="images/logo.gif" 
border="0"></a> 
</td> 
SECS 
<tr valign="top"> 
<td colspan="2" style-"WIDTH: 151px"><font race Ua Ai 
<asp:DataList id="listMenu" runat="server" 
EnableViewState="False" Width="145px" CellPadding="3"> 


«SelectedItemStyle 
BackColor="DimGray"></SelectedItemStyle> 
<SelectedItemTemplate> 
<asp:HyperLink id="linkSelected" runat="server" 
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NavigateUrl='<%# "../bookList.aspx?CategoryID-" 


& 
DataBinder.Eval(Container.DataItem, "CategoryID") & 
"Samp; selection-" + Container.ItemIndex %>' 
Text='<%# DataBinder.Eval ( 
Container.Dataltem, "CategoryName") %>' 
CssClass="MenuSelected">HyperLink</asp:HyperLink> 
</SelectedItemTemplate> 
<ItemTemplate> 
<asp:HyperLink id="linkItem" runat="server" 
NavigateUrl-'«$4 "../bookList.aspx?CategoryID-" & 
DataBinder.Eval(Container.DataIltem, "CategoryID") & 
"Samp; selection-" + Container.ItemIndex %>' 
Text='<%# DataBinder.Eval ( 
Container.DataItem, "CategoryName") %>' 
CssClass="MenuUnselected">HyperLink</asp:HyperLink> 
</ItemTemplate> 
</asp:DataList></font> 
</td> 
</tr> 
«tr» 
«td width="10"> 
&nbsp; 
«/td» 
«td style-"WIDTH: 138px"» 第 
<br> nN 
<br> 章 
S2 
<br> 在 
«br» 线 
«br» d 
<FONT face=" 宋 体 " color="white"> 欢 迎 访问 在 线 书店 </EONT> 店 
</td> sK 
«Rex 例 
«/table» 


(3) 切换 到 设计 视图 ， 在 页 面 空 白 处 双击 鼠标 ， 进 入 到 Menu.ascx.vb 文件 ， 引 入 
如 下 命名 空间 : 
Imports DataAccess 
(4) 在 导入 了 DataAccess 命名 空间 以 后 ， 在 该 命名 空间 的 下 一 行 添加 如 下 代码 : 
Namespace modules 
(5) 在 Menu.ascx.vb 的 最 后 添加 如 下 代码 : 
End Namespace 
(6) 修改 Page Load 事件 处 理 程序 如 下 : 
Private Sub Page Load(ByVal sender As System.Object, 


y 


ByVal e As System.EventArgs) Handles MyBase.Load 


"SRA URL 中 的 参数 信息 
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Dim selectionID As [String] = Request.Params ("selection") 
' 如果 参数 信息 不 为 空 则 指定 菜单 中 被 选中 的 项 

If Not (selectionID Is Nothing) Then 


Me.listMenu.SelectedIndex - Int32.Parse(selectionID) 
End Tf 


= 


' 新 建 数据 访问 对 象 


Dim book As New BookDB 


' 绑 定数 据 源 到 DataList 控件 
listMenu.DataSource = book.GetBookCategory() 


If Not (listMenu.DataSource Is Nothing) Then 
listMenu.DataBind() 
Else 
Response.Redirect ("ErrorPage.aspx") 
End If 
End Sub 


(7) 4) FF DataAccess 项 目 中 的 BookDB 文件 ,在 BookDB.vb 文件 中 添加 如 下 Imports 
语句 : 


Imports System.Data.SqlClient 
Imports System.Configuration 
(8) 在 BookDB.vb 中 添加 自 定 义 方 法 GetBookCategory 如 下 : 
， 读 取 书 籍 的 分 类 信息 
' <returns>DataReader, 包含 所 有 的 分 类 信息 </returns> 
Public Function GetBookCategory() As SqlDataReader 
' JÆ Connection 和 Command 实例 
Dim conn As New SqlConnection 


conn.ConnectionString = 
ConfigurationManager.AppSettings ("ConnectionString") 
Dim cmd As New SqlCommand("GetBookCategory", conn) 


' 指 定 Command 类 型 为 存储 过 程 


cmd.CommandType = CommandType.StoredProcedure 


dew 
' 打 开 数 据 库 连接 ， 执 行 操作 
conn.Open () 
Dim result As SqlDataReader = 
cmd.Execut eReader (CommandBehavior.CloseConnection) 


' 返 回 结果 
Return result 
Catch ex As Exception 
Return Nothing 
End Try 
End Function 'GetBookCategory 
(9) 在 SQL Server 中 选中 数据 库 Bookstore， 新 建 如 下 存储 过 程 : 


CREATE PROCEDURE GetBookCategory AS 


SELECT 
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CategoryID, 


CategoryName 
FROM 
Category 
ORDER BY 
CategoryName ASC 
GO 


(10) 至 此 ，Menu.ascx 文件 设计 完毕 。 

\ iE: 

SD 本 操作 中 步骤 (4) de (5) 是 非常 重要 的 ， 这 两 步 实 现 的 功能 是 将 该 用 户 

空间 保存 在 modules 命名 空间 以 下 ， 这 样 ， 如 果 在 其 他 位 置 需要 访问 该 类 时 就 必须 指 

定 命名 空间 Bookstore. modules。 本 项 目 中 的 所 有 用 户 空间 都 将 保存 在 该 命名 空间 下 。 
虽然 Menu. ascx 文件 能 够 读 取 数据 库 中 的 图 书 分 类 信息 , 但 是 目前 还 不 能 够 测试 

效果 ， 因 为 用 户 控件 无 法 单独 在 浏览 器 中 浏览 。 

从 系统 结构 来 讲 ，Menu.ascx 处 于 表现 层 ， 而 BookDB 则 为 数据 访问 层 的 对 象 ， 


Ju 


Bookstore 数据 库 中 的 Category 则 为 数据 存储 层 。 


BookDB 中 的 自 定 义 方 法 GetBookCategory 负责 从 表 Category 中 读 取 所 有 的 分 类 信 


Is 


将 结果 保存 到 数据 阅读 器 中 。 运 行 时 ， 首 先 建立 数据 库 连 接 ， 然 后 建立 数据 命令 ， 


M 
TH 


字段 升序 排列 。 


[L]6.4.3 显示 评论 ReviewL ist. ascx 


定 命令 文本 ， 男 外 由 于 采用 的 是 存储 过 程 ， 则 应 该 显 式 指 定 命令 文本 的 类 型 : 


Dim cmd As New SqlCommand("GetBookCategory", conn) 


' THE Command 类 型 为 存储 过 程 

cmd.CommandType = CommandType.StoredProcedure 

其 中 SqlCommand 的 构造 函数 接受 的 参数 GetBookCategory 为 存储 过 程 的 名 称 。 
GetBookCategory 过 程 非常 简单 ,仅仅 是 读 取 Category 中 的 数据 , 并 按 CategoryName 


{Ik o3 


这 样 ，Menu.ascx 文件 可 以 被 任何 需要 显示 图 书 类 别 信息 的 页 面 直接 引用 了 。 


ian 


Web 用 户 控件 ReviewList.ascx 负责 显示 图 书 的 评论 信息 ， 同 时 它 将 提供 一 个 链接 ， 


= 
& 


该 链接 链接 到 用 于 输入 评论 信息 的 表单 页 面 。 评 论 信息 同样 使 用 DataList 控件 显示 ， 该 
控件 实现 的 步 又 如 下 : 


(1) Æ module 文件 夹 中 添加 新 的 Web 用户 控件 ， 命 名 为 ReviewList.ascx. 
(2) 在 Dreamweaver 中 设计 好 用 户 控 件 的 页 面 布局 ， 然 后 复制 到 ReviewList.ascx 


文件 的 源 视 图 ， 修 改 ASPNET 代码 如 下 : 


«$8 Control Language-"vb" AutoEventWireup-"false" 


CodeFile-"ReviewList.ascx.vb" 


Inherits="BookStore.modules.ReviewList" 
Target Schema="http://schemas.microsoft.com/intellisense/ie5"%> 


<%-- 


This user control display a list of review for a specific product. 
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= 


Se 


<br> 
<br> 
<table cellspacing="0" cellpadding="0" width="100%" border="0"> 
<tr> 
<td class="SubContentHead"> 
&nbsp; 回顾 
<br> 
</td> 
</tr> 
<tr> 
<td> 
&nbsp; 
«/td» 
«/tr» 
LEDA 
<td> 
<asp:Hyperlink id="AddReview" runat="server"> 
<img align="absbottom" src-"images/review this product.gif" 
border="0"> 
</asp:Hyperlink> 
loess 
<br> 
</td> 
</tr> 
<tr> 
<td> 
<asp:DataList ID="MyList" runat="server" width="500" cellpadding="0" 
cellspacing="0"> 
<ItemTemplate> 
<asp:Label class="NormalBold" Text='<%# DataBinder. Eval ( 
Container.DataItem, "CustomerName") %>' 
runat="server" ID-"Labell"/» 
«span class="Normal"> 评 论 如 下 ... </span> 
«img src='images/ReviewRating<%# DataBinder.Eval( 
Container.DataItem, "Rating") %>.gif'> 
<br> 
<asp:Label class-"Normal" Text='<%# DataBinder.Eval( 
Container.DataItem, "Comments") %>' 
C3 runat-"server" ID-"Label2"/» 
5 </ItemTemplate> 
a) <SeparatorTemplate> 
<br> 
oO </SeparatorTemplate> 
cr </asp:DataList> 
(D «/td» 
S «/tr» 
«/table» 
SS (3) 切换 到 设计 视图 ， 在 空白 处 双击 鼠标 ， 进 入 到 ReviewList.ascx.vb 文件 。 
€»3 
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(4) 在 命名 空间 的 下 一 行 添加 Namespace modules ， 在 文件 结尾 添加 End 


Namespace. 
(5) 定义 页 面 级 变量 m_productID， 用 于 存储 
Public Class ReviewList 
Inherits System.Web.UI.UserControl 


DS 


' 图 书 编号 私有 字段 
Private m productID As Integer 


(6) 为 页 面 添加 属性 ProductID: 
' 图 书 编号 属性 
Public Property ProductID() As Integer 
Get 
Return Me.m productID 
End Get 
Set(ByVal Value As Integer) 
Me.m productID - Value 
End Set 
End Property 
(7) 修改 Page. Load 方法 如 下 : 
Private Sub Page Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load 
' 绑 定 已 有 评论 
Dim reviewDB As New ReviewDB 
Me.MyList.DataSource = reviewDB.GetReviews (ProductID) 
Me.MyList.DataBind() 
' 指 定 “ 添 加 评论 ”按钮 的 地 址 
Me.AddReview.NavigateUrl = 
"../ReviewAdd.aspx?productID-" + ProductID.ToString() 


iil 


End Sub 
(8) 打开 ReviewDB 文件 ， 引 入 如 下 命名 空间 : 
Imports System.Data.SqlClient 
Imports System.Configuration 
(9) 在 ReviewDB.vb 中 添加 目 定义 方法 GetReviews: 
， 读 取 指 定编 号 图 书 的 评论 信息 
' «param name="productID"> 图 书 编 号 </param> 
' <returns> 评 论 信 息 </returns> 


Public Function GetReviews (ByVal productID As Integer) As SqlDataReader 


' JÆ connection All Command X] 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 

Dim myCommand As New SqlCommand("ReviewsList", myConnection) 


， 指 定 操作 类 型 为 存储 过 程 
myCommand.CommandType = CommandType.StoredProcedure 
' 添加 图 书 编号 给 存储 过 程 


Dim parameterProductID As 
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New SqlParameter ("@ProductID", SqlDbType.Int, 4) 
parameterProductID.Value = productID 
myCommand.Parameters.Add(parameterProductID) 


' 打开 连接 ， 执 行 操作 

myConnection.Open() 

Dim result As SqlDataReader - 
myCommand.ExecuteReader (CommandBehavior.CloseConnection) 


' 返回 数据 读 取 器 
Return result 
End Function 'GetReviews 
(10) 在 SQL Server 中 选中 Bookstore 数据 库 ， 添 加 ReviewsList 存储 过 程 : 
CREATE Procedure ReviewsList 
( 


= 


@ProductID int 


) 
AS 


SELECT 
ReviewID, 
CustomerName, 
Rating, 
Comments 


FROM 
Reviews 


WHERE 
ProductID = @ProductID 
GO 
(11) 至 此 ReviewList.asex 文件 设计 完毕 。 
ReviewList.ascx 位 于 表现 层 ， 而 ReviewDB.vb 文件 则 位 于 数据 访问 层 ，Reviews 表 
则 位 于 数据 存储 层 .ReviewDB 中 的 GetReviews 方法 负责 读 取 数 据 库 中 的 图 书评 论 信息 。 
该 自 定 义 方 法 接受 int 类 型 的 参数 productID, 参数 为 图 书 的 编号 。 在 该 方法 中 , priductID 
将 被 传递 给 ReviewsList 存储 过 程 。 该 存储 过 程 依据 图 书 编 号 ,从 Reviews 表 中 选 出 该 图 
书 的 所 有 评论 信息 : 
SELECT 
ReviewID, 


i 


H 


CustomerName, 
Rating, 
Comments 


FROM 
Reviews 


WHERE 
ProductID = @ProductID 
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GetReviews 方法 首先 连接 数 j 


Dim parameterProductID As 


parameterProductID.Va 


New SqlParameter 


rue 


("@Product ID 
produc 


CID 


myCommand.Parameters.Add(parameterProductID) 


E 


E 


- 


也 许 读者 觉得 奇怪 ，productID 


productID 已 被 赋值 了 ， 那 么 


Web J 


B, K&— nee 


E 后 面 讲 到 。 


户 控件 设置 完毕 ， 


显示 图 


booklist.aspx 和 区 


=a 


H J^ o 


这 些 


书信 


区 


个 以 显示 评论 信息 。 


直 没 有 被 赋 


直 ， 那 为 什么 


谁 给 它 赋值 的 呢 ? 给 它 赋 值 的 是 引 ) 


d^ TSCA ey LASS) o INE, 


T 


用 将 进行 县 


6.5 


县 的 页 HI 


包括 首页 


(Iü] Defaultaspx ， 各 个 
书 具体 信息 BookDetails.aspx, 34> SearchResult.aspx 也 
都 是 位 于 表现 层 的 文件 。 位 于 数据 访问 


EB JT As 


显示 图 书信 息 


ig 


4) 


然 ， 疝 存储 过 程 传递 参数 和 第 4 章 中 向 SQL 语句 传递 参数 的 方法 完全 一 致 。 
在 ReviewList.ascx 的 Page Load 事件 中 ， 首 先 获取 ReviewDB 的 GetReviews 方法 
回 的 数据 阅读 器 ， 然 后 绑 定 到 DataList 控 


能 够 直接 使 用 


书 类 别 的 图 


层 的 文件 为 DataAccess 项 目 


书 列 


于 显示 图 


BookDB.vb 和 Book.vb 文件 。 而 位 于 数据 存储 层 的 则 为 Book 表 和 Category 表 。 


Q6. 5. 1 


顶部 使 


在 实现 该 页 面 之 前 先 讨 
体 都 继承 于 System. Web.UILPage. J 


法 时 应 该 怎么 


首页 Default. aspx 


] Header.ascx 控件 ， 


首页 Defaultaspx 文件 的 功能 相对 简 


图 书 类 别 列 表 


Ur? 


方法 有 多 种 ， 其 中 最 直 


Page, MÆR A 


是 继承 我 们 自己 编写 的 类 。 


"PIA Web 页 面 的 父 类 
Public Class BasePage 
Inherits System.Web.UI.Page 


Public Sub New() 


End Sub 


' 错 误 处 理 


'New 


这 样 在 i 


&— F Web 页 


则 使 
面 的 设计 


"<param name="e"> 错 误 句 顶 </param> 
Protected Overrides Sub OnError(ByVal e As EventArgs) 
MyBase.OnError(e) 


接 的 是 新 建 


个 类 ， 


单 ， 仅 仅 显示 欢迎 信息 和 
Menu.ascx 控件 。 
原理 。 在 ASPNET 中 所 有 的 Web 窗 
EA p ES TB BES Web 窗 体 都 添加 相同 的 自 定义 方 
该 类 继承 System.Web.UI. 
己 的 项 目 中 ， 所 有 的 Web 窗 体 不 再 直接 继承 System.Web.UIPage， 而 


在 该 类 中 的 方法 可 以 在 每 个 页 
在 Bookstore 项 目 中 添加 一 个 名 为 BasePage.vb 的 文件 ， 在 该 文件 中 编写 如 下 代码 : 


Dim errorMsg As String = Context.Error.Message 


AREH o 


基于 此 原理 


据 库 , 然后 构建 数据 命令 , 同时 将 参数 传递 给 存储 过 程 : 


We? 其 实 
] ReviewList 控件 的 页 


中 的 


书 类 别 信息 。 其 中 
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'Response.Redirect(("ErrorPage.aspx?errorMsg-" + errorMsg)) 
End Sub 'OnError 


' 弹 出 消息 框 
'«param name="Message"> 消 息 </param> 
Public Sub Alert(ByVal message As String) 
Response.Write(("«script»alert('" + message + "');</script>") ) 
End Sub ‘Alert 
"执行 客户 端 脚本 
"<param name="javaClientScript"> 客 户 端 脚本 </param> 
Public Sub Script(ByVal javaClientScript As String) 
Response.Write(("«script»" + javaClientScript + "</script>") ) 
eel Sle) "fest 
End Class 'Page 
这 样 所 有 其 他 的 Web 窗 体 直接 继承 于 BasePage 28H A]. FMRI 
Default.aspx 的 制作 步骤 。 
(1) 选中 Bookstore 项 目 ， 添 加 新 的 Web 窗 体 ， 命 名 为 Default.aspx。 
(2) 在 Dreamweaver 中 设计 页 面 布局 ， 并 在 页 面 项 部 注册 用 户 控件 。 
«$80 Register TagPrefix-"ucl" TagName-"Header" Src-"modules/Header.ascx" %> 
gName-"Menu" Src-"modules/Menu.ascx" %> 


中 的 代码 到 Visual Studio. NET 中 Default.aspx 文件 


x 
x 


w 


«$0 Register TagPrefix="ucl" T 
(3) 复制 Dreamweaver 41V 134 

的 源 视图 ， 修 改 ASPNET 代码 如 下 : 

«$8 Page language-"vb" CodeFile-"Default.aspx.vb" AutoEventWireup-"false" 


Inherits-"BookStore. Default" $» 


(4) 切换 到 设计 视图 ， 即 可 预览 页 面 效果 ， 如 图 6-10 所 示 。 


DS 


y 


WASPINETIBOOKSTORE| 


KEBABS, $ TIHUMA asd 


Siem] ASP. NETHER BE 


£USRCITYTTURSOUSEn A Kex ane M 
PRARSILSS. STÉARRHEFIT KITE 
AH AKRALRHIRECFKIL. ZONTERA 
d ERAUDURUE. 


图 6-10  Default.aspx 设计 界面 


(5) TE F7 键 ， 进 入 到 Default.aspx.vb 文件 ， 修 改 _Default 类 的 父 类 为 BasePage: 
Public Class | Default 
Inherits BasePage 


(6) 选中 Defaultaspx 文件 ， 单 击 右键 选择 “在 浏览 器 中 查看 ”， 测试 效果 。 


该 页 面 非常 简单 , 仅仅 是 添加 了 两 个 Web 用 户 控件 。 但 是 值得 注意 的 是 该 页 面 的 父 


90 1e3deu) 
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类 不 再 是 System.Web.ULPage， 而 是 我 们 自己 编写 的 类 BasePage， 这 样 如 果 Default.aspx 


页 面 发 生 异 常 错误 时 将 直接 定向 到 ErrorPage.aspx。 这 是 因为 在 Page 类 中 我 们 重 写 了 
OnError 方法 : 
' 错 误 处 理 
"<param name="e"> 错 误 句 顶 </param> 
Protected Overrides Sub OnError(ByVal e As EventArgs) 
MyBase.OnError(e) 


Dim errorMsg As String - Context.Error.Message 
Response.Redirect(("ErrorPage.aspx?errorMsg-" + errorMsg)) 
End Sub 'OnError 


当 网 友 浏 览 首页 DefaulLaspx 时 ， 单 击 左边 的 图 书 分 类 ， 将 打开 对 应 类 别 的 图 书 列 
表 页 面 BookList.aspx， 下 面 设计 该 页 面 。 


y 


[L]6.5.2 图 书 列表 页 面 BookLi st. aspx 


图 书 列表 页 面 BookList.aspx 文件 依据 从 URL 中 传递 的 图 书 类 别 参数 来 显示 该 类 别 
的 所 有 图 书信 息 ， 其 中 图 书 列表 是 通过 DataList 控件 来 显示 的 。 
(1) 在 Bookstore 项 目 中 添加 新 的 Web 窗 体 ， 命 名 为 BookList.aspx. 
(2) 在 Dreamweaver 中 设计 BookList.aspx 文件 的 页 面 布局 ， 并 注册 用 户 控件 。 
(3) 将 Dreamweaver 代码 视图 中 的 代码 复制 到 BookList.aspx 的 源 视 图 ， 修 改 页 面 
的 Inherits 属性 并 绑 定 数据 ， 如 下 代码 所 示 : 
«$8 Page language-"vb" CodeFile-"BookDetails.aspx.vb" 
AutoEventWireup-"false" Inherits-"BookStore.BookDetails" $» 


«table height="100%" align="left" cellspacing="0" 
cellpadding="0" width="100%" border="0"> 


1o98 


<tr valign="top"> 在 
«td nowrap> 线 
<br> d 

«asp:DataList id-"MyList" runat="server" RepeatColumns-"2"» 店 
<ItemTemplate> Aj 
<TABLE width="300" border="0"> ji 
<TR> 

<TD width="25">&nbsp; </TD> 


<TD vAlign="middle" align="right" 

width="100"><Ahref='BookDetails.aspx?BookID=<%#DataBinder.Eval ( 
Container.DataItem, "BookID") %>'> 

<IMG height=75 src='BookImages/<%# DataBinder.Eval ( 
Container.DataItem, "BookImage") %>' width=100 border=0></A></TD> 

<TD vAlign="middle" width="200"> 

<A href-'BookDetails.aspx?BookID-«$4 DataBinder.Eval( 
Container.DataItem, 
"JBkeyexelrD)-) Gyo NS 

<SPAN class="ProductListHead"><%# DataBinder.Eval( Container.DataItem, 
"BookName") %></SPAN><BR> 


</A> 


251 


ASP.NET 4.0 Ej Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


«SPAN class="ProductListItem"><B> 价 格 : </B> 


«$4 DataBinder.Eval(Container.DataItem, "BookCost", "(0:c)") %> 
</SPAN> 
<BR> 
<A href-'AddToCart.aspx?BookID- 
«S4 DataBinder.Eval(Container.DataItem, 


BOOK TOYO fum 
«SPAN class="ProductListItem"><FONT color="#9d0000"><B> 添 加 到 购物 车 


<B></FONT></SPAN></A></B></B></TD> 


</TR> 
</TABLE> 
</ItemTemplate> 
</asp:DataList> 
</td> 
f EXER 
«/table» 


切换 到 设计 视图 ， 可 以 查看 bookList.aspx 的 界面 设计 ， 妇 


图 6-11 所 示 : 


-x 


Id 


BookList. aspn 


ASP'NETIBOOKSTORE 


KAGE, SPRANG Ak 1 


IESU 2 DE 


图 6-11 bookList.aspx 文件 的 设计 视图 


(4) 按 F7 键 ， 进 入 bookListaspx.vb 文件 ， 引 入 如 下 命名 空间 : 
Imports DataAccess 
(5) 修改 Page_Load 方法 如 下 : 
Private Sub Page Load(ByVal sender As System.Object, 


ByVal e As System.EventArgs) Handles MyBase.Load 
Dim categoryID As Integer = Int32.Parse (Request.Params ("CategoryID") ) 


Dim bookCatalogue As New BookDB 


Me.MyList .DataSource = bookCatalogue.GetBooks (categoryID) 
Me.MyList.DataBind() 


End Sub 
(6) 在 DataAccess 项 目 中 的 BookDB 文件 中 添加 自 定义 方法 GetBooks: 


， 依据 类 别 编号 返回 该 类 别 的 所 有 图 书 
' <param name-"categoryID"» HRK 5 «/param» 
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' «returns»DataReader: 对 应 类 别 的 所 有 图 书 </returns> 


Public Function GetBooks (ByVal categoryID As Integer) As SqlDataReader 


' ££ Y. Connect ion 和 Command 实例 
Dim conn As New SqlConnection 
conn.ConnectionString - 
ConfigurationSettings.AppSettings ("ConnectionString") 
Dim cmd As New SqlCommand("BookByCategory", conn) 
' 指 定 执 行 对 象 为 存储 过 程 
cmd.CommandType = CommandType.StoredProcedure 
' 向 存储 过 程 添加 参数 
Dim paramCategoryID As New SqlParameter ("@CategoryID", SqlDbType.Int, 


4) 
paramCategoryID.Value = categoryID 
cmd.Parameters.Add(paramCategoryID) 
EEY 
' 执 行 操作 
conn.Open () 
Dim result As SqlDataReader - 
cmd.ExecuteReader (CommandBehavior.CloseConnection) 
Return result 
Catch ex As Exception 
Return Nothing 
End Try 
End Function 'GetBooks 
(7) 在 数据 库 中 添加 存储 过 程 BookByCategory: 第 
CREATE PROCEDURE BookByCategory ON 
( ES 
: He 
@categoryID int 
; 在 
AS 线 
SELECT d 
BookID, JE 
ay 
BookName, 3k 
BookImage, 例 
BookCost 
FROM 
Book 
WHERE 
CategoryID = @categoryID 
GO 
(8) bookList.aspx 文件 设计 完毕 ， 可 以 测试 运行 效果 。 
当 页 面 bookList.aspx 加 载 时 ，Page_Load 事件 首先 从 URL 中 获取 图 书 类 别 编号 : 
Dim categoryID As Integer = Int32.Parse(Request.Params ("CategoryID")) 
然后 调用 BookDB 的 GetBooks 方法 来 获取 指定 类 别 的 所 有 图 书信 息 并 绑 定 到 
DataList 控件 : 


Dim bookCatalogue As New BookDB 
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Me.MyList.DataSource = bookCatalogue.GetBooks (categoryID) 
Me.MyList.DataBind() 


而 BookDB 的 GetBooks 方法 则 负责 将 图 书 类 别 编号 传递 给 BookByCategory 存储 过 
程 ， 然 后 执行 该 存储 过 程 以 获取 包含 对 应 类 别 的 图 书信 息 的 数据 阅读 器 : 


Dim paramCategoryID As New SqlParameter ("@CategoryID", SqlDbType.Int, 


y 


DS 


4) 
paramCategoryID.Value = categoryID 
cmd.Parameters.Add(paramCategoryID) 


EEY 
"执行 操作 
conn.Open () 
Dim result As SqlDataReader - 
cmd.ExecuteReader (CommandBehavior.CloseConnection) 
Return result 
Catch ex As Exception 
Return Nothing 
End Try 


当 网 友 浏 览 bookList.aspx 文件 中 的 图 书信 息 时 ,可 以 单 
BookDetails.aspx 页 面 以 显示 该 图 书 的 具体 信息 。 


D 


T 


À 


片 或 者 名 称 打开 


E 
E 


BH 


[[]e.5.3 图 书 具体 信息 BookDetai ls. aspx 


BookDetails.aspx 页 面 负责 显示 图 书 的 具体 信息 ， 该 页 面 依据 URL 中 的 图 书 编号 来 
显示 数据 PETS 书信 息 。 
该 页 面 的 实现 步骤 如 下 : 
(1) 在 项 目 Bookstore 中 添加 新 的 Web 窗 体 ， 命 名 为 BookDetails.aspx。 
(2) 在 BookDetails.aspx 的 设计 视图 中 设计 页 面 布 局 ， 并 注册 用 户 控件 。 设 计 完 毕 
后 的 页 面 效果 如 图 6-12 所 示 。 
页 面 代码 如 下 所 示 : 
«$8 Register TagPrefix="ucl" TagName-"ReviewList" 
Src="modules/ReviewList.ascx" %> 


Register TagPrefix="ucl" TagName="Header" Src="modules/Header.ascx" %> 
Register TagPrefix-"ucl" TagName-"Menu" Src-"modules/Menu.ascx" %> 


而 


» 


«td colSpan-"2"»«ucl:header id-"Headerl" runat-"server"» 
«/ucl:header»«/td» 
EE 
«tr» 
< 七 Q vAlign="top" width="145"><ucl:menu id="Menul" 
runat="server"> 
«/ucl:menu»«IMG height="1" src="images/1x1.gif" width="145"> 
</td> 
<td vAlign="top" align="left"> 
<table height="100%" cellSpacing="0" cellPadding="0" 
width="620" align="left" border="0"> 


254 


«tr vAlign="top"> 
«td»«br» 
«IMG src-"images/1xl.gif" width="24" 


align="left"> 


<table cellSpacing="0" cellPadding="0" width="100%" 
border="0"> 

«tr» 

«td class-"ContentHead"»«IMG height="32" 
src-"images/1xl.gif" width="60" 
align="left">&nbsp; 

<asp:label id="bookName" runat="server"> 

«/asp: label»«br» 
«/td» 
EET 
«/table» 
«table cellSpacing="0" cellPadding="0" width="100%" 
border="0" valign="top"> 

<tr vAlign="top"> 
<td rowSpan="2"><IMG height="1" 

src="images/1x1.gif" 


width="24"> 


</td> 
<td width="309"><IMG height="15" 
src-"images/1xl.gif"»&nbsp; 
«br» 
«asp:image id-"bookImage" runat="server" 
height="185" width-"309" border="0"> 
</asp:image><br> 
<br> 
<IMG height="20" src-"images/1xl.gif" 
width="72"><span class="UnitCost"><b> 价 格 : 
<asp:label id="bookCost" runat="server"> 
</asp:label></b>&nbsp; </span> 
oye 
<IMG height-"20" src-"images/1xl.gif" 
width="72"><span class="ModelNumber"> 
<b> 作 者 : </b>&nbsp; </span> 
«asp:label id="bookAuthor" runat="server"> 
«/asp: label»«br» 
<IMG height-"30" src-"images/1xl.gif" 
width="72">é&nbsp; 
<asp:hyperlink id="addToCart" runat="server" 
ImageUrl="images/add_to_cart.gif"> 
</asp:hyperlink></td> 
<td> 
<table width="300" border="0"> 
<tr> 
<td vAlign="top"> 
<asp:label class="NormalDouble" 


id="bookBak" 


runat="server"> 
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«/asp:label»«br» 


«/td» 
</tr> 
</table> 
<img height="30" 
src-"images/1xl.gif"» 
«/td» 
Eae 
«tr» 
«/tr» 
</table> 
<table border="0"> 
<tr> 
<td> 


«img src="images/1x1.gif" width="89" 
height="20"> 


</td> 
<td width="100%"> 
<ucl:ReviewList id="ReviewList" 


runat="server"> 

«/ucl:ReviewList» 
</td> 
«/tr» 
</table> 
</td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
</body> 
</HTML> 


图 6-12 BookDetails.aspx 的 设计 界面 


3) 在 页 面 空 白 处 双击 鼠标 ， 进 入 BookDetails.aspx.vb 文件 ， 首 先 引 入 DataAccess 


以 


( 
命名 空间 : 


Imports DataAccess 
(4) Jy BookDetails.aspx.vb 添加 页 面 级 变量 ReviewList: 


Protected ReviewList As modules.ReviewList 
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(5) 修改 Page. Load 方法 如 下 : 
Private Sub Page Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load 
' 从 URL 中 获得 图 书 编号 信息 
Dim bookID As Integer = Int32.Parse(Request.Params ("BookID")) 


' 新 建 数 据 访问 类 和 Book 实体 类 实例 

Dim bookDB As New BookDB 

Dim bookDetail As New Book 

bookDetail = bookDB.GetBookDetail (bookID) 


' 更 新 组 件 以 显示 图 书 具 体 信息 


| 


Me.bookAuthor.Text = bookDetail.BookAuthor 

Me.bookBak.Text = bookDetail.BookBak 

Me.bookCost.Text = [String] .Format("{0:c}", bookDetail.BookCost) 

Me.bookName.Text = bookDetail.BookName 

Me.bookImage.ImageUrl = "BookImages/" + bookDetail.BookImage 

Me.addToCart.NavigateUrl = "addToCart.aspx?BookID-" t 
bookID.ToString() 

Me.ReviewList.ProductID = bookID 


End Sub 


T: 


， 获 得 图 书 的 详细 信息 


Public Function GetBookDetail(ByVal bookID As Integer) As Book 


(6) fF DataAccess 项 目 中 的 BookDB.vb 文件 中 添加 自 定义 方法 GetBookDetail 如 


«param name="bookID"> 图 书 编号 </param> 
<returns> 图 书 实 体 </returns> 


' 新 建 Connection 和 Command 实例 
Dim conn As New SqlConnection 
conn.ConnectionString = 
ConfigurationSettings.AppSettings ("ConnectionString") 
Dim cmd As New SqlCommand("GetBookDetail", conn) 
' 指定 执行 对 象 为 存储 过 程 
cmd.CommandType = CommandType.StoredProcedure 
' 向 存储 过 程 添加 图 书 编号 参数 
Dim paramBookID As New SqlParameter ("@BookID", SqlDbType.Int, 4) 
paramBookID.Value = bookID 


THEY H9 3H 


= 
Su 


cmd.Parameters.Add(paramBookID) 


Try 
' 打 开 连 接 ， 执 行 操作 
conn.Open () 
Dim reader As SqlDataReader = cmd.ExecuteReader () 


' 移动 数据 读 取 器 指针 ， 使 之 指向 第 一 条 记录 


rt 


， 读 取信 息 到 数据 读 取 器 中 


“该 记录 也 是 惟一 一 条 记录 
reader.Read() 
' 新 建 Book 实体 的 实例 


Dim result As New Book 
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"设置 对 应 的 属性 信息 


result.BookID = Int32.Parse(reader("BookID").ToString()) 
result.BookName = reader("BookName").ToString() 
[Decimal] .Parse (reader ("BookCost") .ToString() ) 
result.BookBak = reader ("BookBak") .ToString () 


result.BookCost = 


result.BookAuthor = 
= reader ("BookImage") .ToString () 


result .BookImage 


,关闭 阅读 器 和 数据 库 连接 


reader.Close() 
conn.Close() 


' 返 回 Book 实例 
Return result 


Catch ex As Exception 


Return Nothing 


Finally 


End 


End Function 
(7) 修改 DataAccess Jit H 

实体 类 

Jol ee GI 


Private 


' 即 使 发 生 异 常 也 能 关闭 数据 库 连 接 


If conn.State = ConnectionState.Open Then 


conn.Close() 
End If 
Try 


lass Book 


5 开发 从 入 门 到 精通 


= 


reader ("BookAuthor") .ToString () 


"Get BookDetail 


的 Book.vb 代码 如 下 : 


m bookID As Integer 


Private m bookName As [String] 
Private m bookAuthor As [String] 
Private m bookBak As [String] 
Private m bookImage As [String] 


Private 


， 图 书 编号 


Public Property BookID() As Integer 


Get 


End 


Return Me.m bookID 
Get 


m bookCost As Decimal 


Set(ByVal Value As Integer) 


Me.m bookID - Value 


End Set 


End Property 


' 图 书 名 称 
Public Property BookName() As [String] 


Get 


Return Me.m bookName 


End Get 


Set(ByVal Value As [String]) 
Me.m bookName - Value 

End Set 

End Property 


' 图 ] 


作者 

Public Property BookAuthor() As [String] 
Get 

Return Me.m bookAuthor 

End Get 

Set(ByVal Value As [String]) 

Me.m bookAuthor - Value 

End Set 

End Property 


， 图书 描述 
Public Property BookBak() As [String] 
Get 


Return Me.m bookBak 
End Get 
Set(ByVal Value As [String]) 
Me.m bookBak = Value 

End Set 


End Property 


， 图书 图 片 地 址 
Public Property BookImage() As [String] 
Get 


Return Me.m_bookImage 
End Get 

Set(ByVal Value As [String]) 
Me.m booklmage = Value 
End Set 

End Property 


' EBORE 
Public Property BookCost() As Decimal 
Get 


Return Me.m bookCost 
End Get 

Set(ByVal Value As Decimal) 
Me.m bookCost - Value 
End Set 

End Property 


End Class 'Book 


(8) 在 数据 库 中 添加 GetBookDetail 存储 过 程 : 


CREATE PROCEDURE GetBookDetail 
( 
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@BookID int 


AS 
SELECT 
BookID, 
BookName, 
BookAuthor, 
BookBak, 
BookImage, 
BookCost 
FROM 
Book 
WHERE 
BookID = @BookID 
GO 


(9) BookDetails.aspx 页 面 设 计 完 毕 ， 可 以 自行 测试 其 运行 效果 。 
BookDetails.aspx 是 依据 URL 中 的 图 书 编号 信息 来 从 数据 库 中 获取 信息 的 ， 因 此 在 
该 页 面 的 Page_Load 事件 中 必须 首先 获取 图 书 编号 信息 : 
Dim bookID As Integer = Int32.Parse (Request.Params ("BookID")) 
然后 , Page. Load 事件 调用 BookDB 的 GetBookDetail 方法 以 获取 对 应 编号 的 图 书 详 
细 信 息 ， 为 了 便于 图 书 详细 信息 的 传递 ， 我 们 编写 了 Book .vb 文件 ， 对 应 于 图 书信 息 实 
本 类 。Page_Load 事件 从 BookDB 的 GetBookDetail 方法 中 获取 了 Book 类 类 型 的 图 书信 
息 实 体 以 后 ， 将 实体 的 属性 赋值 给 BookDetails.aspx 页 面 中 对 应 的 控件 ， 以 显示 图 书 具 


本 信息 : 
' 更 新 组 件 以 显示 图 书 具体 信息 
Me.bookAuthor.Text = bookDetail.BookAuthor 
Me.bookBak.Text = bookDetail.BookBak 
Me.bookCost.Text = [String].Format("(0:c)", bookDetail.BookCost) 
Me.bookName.Text = bookDetail.BookName 
Me.bookImage.ImageUrl = "BookImages/" + bookDetail.BookImage 
Me.addToCart.NavigateUrl - "addToCart.aspx?BookID-" E 
bookID.ToString() 
Me.ReviewList.ProductID = bookID 


在 6.4.3 节 中 提 到 ReviewList.ascx 文件 如 何 给 productID 赋值 的 问题 ， 事 实 上 对 
productID 赋值 是 通过 设置 ReviewList 的 ProcuctID 属性 实现 的 ， 代 码 如 下 : 
Me.ReviewList.ProductID = bookID 
那么 BookDB 中 的 GetBookDetail 方法 如 何 获取 指定 编号 的 图 书 详细 信息 呢 ? 该 方 
法 接受 int 类 型 的 参数 图 书 编号 bookID, ， 然 后 该 方法 将 bookID 传递 给 存储 过 程 
GetBookDetail 的 参数 @BookID: 
Dim cmd As New SqlCommand("GetBookDetail", conn) 
' 指定 执行 对 象 为 存储 过 程 
cmd.CommandType = CommandType.StoredProcedure 
' 向 存储 过 程 添加 图 书 编号 参数 


Dim paramBookID As New SqlParameter ("@BookID", SqlDbType.Int, 4) 


C2 
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paramBookID.Value = bookID 
cmd.Parameters.Add(paramBookID) 


接 下 来 就 打开 数据 库 连 接 ， 执 行 操作 并 
意 的 是 在 该 方法 中 并 没有 直接 返回 该 数据 阅读 


SE Vm 


Ba 
^E 


书信 息 保 存 到 数据 阅读 器 中 。 但 需要 注 
， 而 是 立即 使 用 该 数据 阅读 器 ， 将 其 中 


的 数据 保存 到 Book 类 型 的 图 书 实体 中 ， 然 后 ; 


ex 


图 书 实体 返回 。 这 检 


做 就 能 更 快 地 关闭 


阅读 器 和 数据 连接 ， 提 高 程序 执行 的 效率 : 
“PE Book 实体 的 实例 
Dim result As New Book 


"设置 对 应 的 属性 信息 


result.BookID = Int32.Parse(reader("BookID").ToString()) 


result.BookName = reader("BookName").ToString() 


result.BookCost = [Decimal] .Parse (reader ("BookCost") .ToString() ) 


result.BookBak = reader ("BookBak") .ToString () 


result.BookAuthor = reader ("BookAuthor") .ToString() 
result.BookImage = reader ("BookImage") .ToString () 


' 关 闭 阅 读 器 和 数据 库 连 接 
reader.Close() 
conn.Close() 


“返回 Book 实例 
Return result 


[L]e.5.4 图 书 搜索 结果 界面 SearchResults. aspx 


前 面 已 经 提 到 , 在 Header.ascx 控件 中 , 用户 可 以 输入 关键 字 来 查询 对 应 的 图 书信 息 。 


y 


的 关键 字 信 息 ， 然 后 依据 关键 字 来 查询 数据 库 。 
该 页 面 的 实现 步骤 如 下 : 


(1) 在 Bookstore 项 目 中 添加 新 的 Web 窗 体 ， 命 名 为 SearchResults.aspx。 


图 书信 息 的 查询 功能 由 SearchResults.aspx 页 面 完成 。 该 页 面 首先 获取 用 户 在 表单 中 输入 


{Ik o3 


(2) 切换 到 SearchResults.aspx 文件 的 设计 视图 ， 对 页 面 进行 布局 设计 。 然 后 插入 


一 个 DataList 控件 ， 并 绑 定 数据 。 相 关 ASP.NET 代码 如 下 : 


«$8 Page language-"vb" CodeFile-"SearchResults.aspx.vb" 


ian 


= 
& 


AutoEventWireup-"false" Inherits-"BookStore.SearchResults" %> 


«$80 Register TagPrefix-"ucl" TagName-"Header" Src-"modules/Header.ascx" %> 


«$80 Register TagPrefix-"ucl" TagName-"Menu" Src-"modules/Menu.ascx" %> 


<HTML> 
<HEAD> 


<link rel="stylesheet" type="text/css" href="css/BookStore.css"> 


</HEAD> 


<body background="images/sitebkgrdnogray.gif" leftmargin="0" 


topmargin="0" 
rightmargin="0" 


bottommargin="0" marginheight="0" marginwidth="0"> 
<table cellspacing="0" cellpadding="0" width="100% 
«tr» 


" border="0"> 
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«/td» 
«/tr» 
«tr» 
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«td colspan="2"> 
«ucl:Header id-"Headerl" 


` 


通 
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runat-"server"»«/ucl:Header» 


<td valign="top"> 
«img height="1" src="images/1x1l.gif" width="145"> 
«ucl:Menu id-"Menul" runat="server"></ucl:Menu>énbsp; 


«/td» 


<A href='BookDe 


<IMG height=75 


«$t DataBinder. 


width-100 borde 


<TD vAlign="middle" wid 


<asp:DataList id="MyList" RepeatColumns="2" 
runat="server"> 
<ItemTemplate> 
<TABLE wid 


<TR> 


P 


th="300" border="0"> 
<TD width="25">&nbsp; 
</TD> 

<TD vAlign="middle" 
align="right" 
width="100"> 


tails.aspx?productID- 
«$4 DataBinder.Eval (Container.DataItem, "BookID") $»'» 
src='BookImages/ 
Mu (ee ater EE "BookImage") %>' 
r= 
</A> 
</TD> 
th-"200"» 
px?productID- 


<A href-'BookDetails.as 
«$4 DataBinder.Eval 
<SPAN class-"Produc 


«$4 DataBinder.Eval(Container.DataItem, 


«/A» 


<SPAN class-"ProductLis 


(Container.DatalItem, 
tListHead"> 


"BookID") $>'> 


"BookName") $></SPAN><BR> 


tItem"><B> 价 格 </B> 


<%# DataBinder.Eval(Container.DataItem, "BookCost", "{0:c}")%> 
</SPAN><BR> 
<A href-'AddToCart.aspx?productID- 


<%# DataBinder.Eval 
<FONT color="#9d0000">< 
«/TD» 
«/TR» 
«/TABL 
«/ItemTemplate» 
«/asp:DataList» 


E> 


th=" 


Erro 


<img height="1" wid 
<asp:Label id="1 
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(Container.DataItem, "BookID") %>'> 
B> 添 加 到 购物 车 </B></FONT></A> 


30" src-"Images/l1xl.gif"» 
/> 


rMsg" class-"ErrorText" runat="server" 


DS 


(3) 切换 到 设计 视 
入 如 下 命名 空间 ; 


， 双 击 页 面 空白 处 ， 进 入 SearchResults.aspx.vb 文件 。 首 先 引 


Imports DataAccess 
(4) 修改 Page_Load 事件 如 下 : 
Private Sub Page Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load 


， 依据 关键 字 txtSsearch 检索 数据 库 


Dim bookDB As New BookDB 


MyList.DataSource = 
bookDB.SearchProductDescriptions (Request.Params ("txtSearch")) 
MyList.DataBind() 


， 如 果 没 有 检索 的 任何 信息 则 提示 信息 
If MyList.Items.Count = 0 Then 
ErrorMsg.Text - "No items matched your query." 
End If 
End Sub 
(5) 在 DataAccess 项 目的 BookDB.vb 文件 中 添加 用 于 执行 搜索 操作 的 自 定 义 方 法 
SearchProductDescriptions : 
， 碍 询 数据 库 中 的 图 书信 息 
' «param name="searchString"> 图 书 关 键 字 </param> 
' <returns> 查 询 到 的 结果 信息 </returns> 
Public Function SearchProductDescriptions (ByVal searchString As String) 
As SqlDataReader 


T 


' Pree Connection Jl Command WHR 
Dim myConnection As New SqlConnection ( 


{it 9 W 


ConfigurationSettings.AppSettings ("ConnectionString") ) 
Dim myCommand As New SqlCommand("ProductSearch", myConnection) 


， 指定 操作 类 型 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 
， 添加 参数 到 存储 过 程 

Dim parameterSearch As New SqlParameter( 


"@Search", SqlDbType.NVarChar, 255) 
parameterSearch.Value = searchString 


HER 


= 
a 


myCommand.Parameters.Add(parameterSearch) 
， 执行 命令 
myConnection.Open() 


Dim result As SqlDataReader - 
myCommand.ExecuteReader (CommandBehavior.CloseConnection) 


， 返回 结果 集 
Return result 


End Function 'SearchProductDescriptions 


(6) 在 数据 库 中 添加 ProductSearch 存储 过 程 : 


CREATE Procedure ProductSearch 
( 
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@Search nvarchar (255) 


) 
AS 


SELECT 
BookID, 
BookName, 
BookAuthor, 
BookCost, 
BookImage 


FROM 
Book 


WHERE 
BookName LIKE '%' + @Search + '$' 
OR 
BookAuthor LIKE '$' + @Search + '$' 
OR 
BookBak LIKE '$' + @Search + '$' 

GO 


CD 至 此 ， a era d 写 完毕 。 
事实 上 ， 搜 索 书 籍 信息 和 直接 读 取 书籍 信息 极其 相似 ， 区 别 仅仅 在 于 读 取 数 据 库 时 
使 用 的 数据 命令 。 对 数据 库 的 搜索 操作 由 存储 过 程 ProductSearch 来 完成 , 与 上 一 章 类 似 ， 
该 存储 过 程 将 关键 字 依 次 与 图 书 名 、 图 书 作 者 以 及 图 书 说 明 进行 匹配 : 


WHERE 
BookName LIKE '$' + @Search + '$' 
OR 
BookAuthor LIKE '$' + @Search + '$' 
OR 


BookBak LIKE '$' + @Search + '$' 
SearchProductDescriptions 方法 将 关键 字 传 递 给 存储 过 程 ， 然 后 调用 该 存储 过 程 ， 将 
得 到 的 结果 保存 到 数据 阅读 器 中 返回 给 SearchResults.aspx 的 Page_Load 事件 .Page_Load 

事件 获取 了 数据 阅读 器 以 后 将 结果 绑 定 到 DataList 控件 : 


MyList.DataSource = 
bookDB.SearchProductDescriptions (Request.Params ("txtSearch")) 
MyList.DataBind() 
WR DataList 控件 在 绑 定 数据 以 后 没有 任何 项 ， 则 表示 该 数据 阅读 器 为 空 ， 即 搜索 
结果 为 空 ， 此 时 通过 Label 来 通知 用 户 : 

， 如 果 没 有 检索 的 任何 信息 则 提示 信息 

If MyList.Items.Count = 0 Then 
ErrorMsg.Text = "No items matched your query." 

End If 


6.6 用户 注 册 处 理 


果 网 友 硕 望 能 够 购买 图 书 ， 则 必须 首先 成 为 会 员 。 成 为 会 员 的 手段 即 注 册 。 本 项 


vi 
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目 中 用 户 注册 由 Register.aspx 实现 。Register.aspx 位 于 表现 层 , 而 负责 处 理 数据 的 数据 访 


问 层 为 DataAccess 项 目 中 的 CustomerDB.vb 文件 。 而 位 于 数据 存储 层 的 则 为 数据 表 
Customers. Register.aspx 页 面 使 用 到 了 数据 验证 控件 ， 以 确保 用 户 输入 的 信息 有 效 。 
由 于 网 友 可 能 在 注册 或 者 登录 之 前 已 经 添加 了 部 分 图 书 到 购物 车 ， 因 此 网 友 注 册 以 
后 ， 必 须 将 注册 前 的 购物 车 信息 及 时 更 新 为 对 应 注册 会 员 的 购物 车 。 每 个 购物 车 都 有 惟 
一 的 购物 车 编号 ， 用 户 登录 以 前 购物 车 编号 为 程序 生成 的 GUID 全球 惟一 标识 )， 注 
或 者 登录 以 后 则 应 该 将 购物 车 编号 修改 为 用 户 的 ID. Ash TRE ASP.NET 中 使 用 
Cookie 存储 信息 ， 用 户 注册 以 后 将 用 户 的 名 称 存储 到 Cookie 中 。 

实现 用 户 注册 功能 的 步骤 如 下 : 

(1) 在 Bookstore 项 目 中 添加 新 的 Web 窗 体 ， 命 名 为 Register.aspx。 

(2) 切换 到 Register.aspx 文件 的 设计 视图 ， 对 页 面 进行 布局 设计 。 设 计 完 毕 后 的 页 
面 效果 如 图 6-13 所 示 : 

相关 页 面 代码 如 下 所 示 : 


«$8 Page language="vb" CodeFile-"Register.aspx.vb" AutoEventWireup-"false" 


a LJ 


Inherits-"BookStore.Register" %> 
«$80 Register TagPrefix-"ucl" TagName-"Header" Src-"modules/Header.ascx" %> 
«$80 Register TagPrefix="ucl" TagName-"Menu" Src-"modules/Menu.ascx" %> 


«td class="ContentHead"> 


«img align="left" 
height="32" 
width="60" 
src="images/1x1.gif"> 第 
创建 新 帐号 CN 
<br> 章 
«/td» 
«/tr» 在 
«/table» 线 
<img align="left" height="1" width="92" d 
src-"images/1xl.gif"» JE 
<asp:Label id="MyError" SE 
CssClass="ErrorText" 例 


EnableViewState-"false" 
runat-"Server" /» 

«table height-"100$" cellspacing="0" 
cellpadding-"0" width="500" 
border="0"> 
<tr valign="top"> 

<td width="550"> 
<br> 
loess 
«span class="NormalBold"> 用 Fo 名 


«/span» 


«br» 
«asp:TextBox size-"25" id-"Name" 
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runat-"server" /> 


&nbsp; 


图 6-13  Register.aspx 的 设计 界面 


` 添 加 数据 验证 控件 ， 要 求 输 入 值 不 能 为 空 


«asp:RequiredFieldValidator 


ControlToValidate-"Name" Display-"dynamic" 
Font-Name-"verdana" 
Font-Size-"9pt" ErrorMessage-"/l/" 4 BEA" runat="server" 
id-"RequiredFieldValidatorl"»«/asp:RequiredFieldValidator» 
«br» 
«br» 
«span class="NormalBold"> 电 子 邮 件 地 址 
«/span» 
«br» 
<asp:TextBox size-"25" id="Email" 
runat="server" /> 


&nbsp; 
` 对 邮箱 格式 进行 验证 
«asp:RegularExpressionValidator ControlToValidate-"Email" 
ValidationExpression="[\w\.-]+(\+[\w-] *) 2@([\w-]+\.)+[\w-]+" 
Display-"Dynamic" Font-Name-"verdana" Font-Size-"9pt" 
ErrorMessage=" 请 输入 合法 邮件 地 址 " runat="server" 
id="RegularExpressionValidator1"></asp:RegularExpressionValidator> 
<asp:RequiredFieldValidator ControlToValidate="Email" 
Display="dynamic" Font-Name-"verdana" Font-Size-"9pt" 
ErrorMessage=" 邮 件 地 址 不 能 为 室 " runat="server" 
id="RequiredFieldValidator2"></asp:RequiredFieldValidator> 
<br> 
<br> 
«span class="NormalBold">#f4</span> 
<br> 
<asp:TextBox size="25" id="Password" TextMode="Password" 
runat="server" /> 
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&nbsp; 


«asp:RequiredFieldValidator ControlToValidate-"Password" 
Display-"dynamic" Font-Name-"verdana" Font-Size-"9pt" 
ErrorMessage="*i4 AEN TY runat="server" 
id="RequiredFieldValidator3"></asp:RequiredFieldValidator> 
<br> 


<br> 
<span class="NormalBold">M#hi\ Big 
</span> 
<br> 
<asp:TextBox size-"25" id="ConfirmPassword" 
TextMode-"Password" runat="server" /> 
&nbsp; 
«asp:RequiredFieldValidator 
ControlToValidate-"ConfirmPassword" 
Display-"dynamic" Font-Name-"verdana" Font-Size-"9pt" 
ErzorMessage=" 确 认 密 码 不 能 为 空 " runat="server" 
id="RequiredFieldValidator4"></asp:RequiredFieldValidator> 
"比较 两 次 输入 的 密码 


«asp:CompareValidator ControlToValidate-"ConfirmPassword" 


ControlToCompare-"Password" Display-"Dynamic" 
Font-Name-"verdana" Font-Size-"9pt" 
ErrorMessage-' AE pte" 
runat-"server" 
id="CompareValidatori"></asp:CompareValidator> 
<br> 
<br> 
<asp:ImageButton id="RegisterBtn" 
ImageUrl-"images/submit.gif" runat="server" /> 


(3) TE F7 键 进入 Register.aspx.vb 文件 ， 引 入 DataAccess 命名 空间 。 
(4) 在 图 6-25 所 示 界 面 中 双击 按钮 “Submit”， 注 册 按钮 单 击 事件 ， 并 编写 如 下 代 


y 


f: 


Private Sub RegisterBtn Click(ByVal sender As Object, ByVal e As 
System.Web.UI.ImageClickEventArgs) 
If Page.IsValid Then 
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' 保 存 旧 的 购物 车 编号 ， 以 便 注册 后 合并 购物 车 
Dim cartID As New ShoppingCartID 
Dim tempCartID As [String] = cartID.GetShoppingCartId() 


' 建立 购物 车 处 理 实例 
Dim shoppingCart As New ShoppingCartDB 


' 添 加 用 户 信息 到 数据 库 


Dim customer As New CustomerDB 


Dim customerID As [String] = customer.AddCustomer( 
Me.Name.Text.Trim(), 
Me.Email.Text.Trim(), 
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If customerID <> "" Then 
' 将 用 户 ID 指定 为 通过 安全 登录 的 信息 
FormsAuthentica 


tion.SetAuthCookie(customerID, False) 


' 合 并 购物 车 
shoppingCart.MigrateCart (tempCartID, 
' 将 用 户 姓名 保存 到 Cookies 中 

Response.Cookies("FullName").Value = 


Server.HtmlEncode (Me.Name.Text) 


customerID) 


' 重 定向 到 购物 车 界面 
Response.Redirect ("ShoppingCart .aspx") 
Else 
Me.MyError.Text = "注册 失败 该 邮件 地 址 已 有 人 使 用 <br> 
<img align=left height-1 width-92 src-images/1xl.gif»" 
End If 
End If 
End Sub 


(5) 在 Bookstore 项 目 中 添加 新 的 类 文件 ShoppingCartID.vb， 并 编写 如 下 代码 : 
Public Class ShoppingCartID 
Public Sub New() 
End Sub 'New 


' 获 取 用 户 购物 车 ID 
'<returns>JQW4 ID</returns> 


Public Function GetShoppingCartId() As [String] 


， 获取 当前 请 求 的 上 下 文 信息 


Dim context As System. 


eb.HttpContext = System.Web.HttpContext.Current 


， 如 果 用 户 已 经 登录 ， 则 以 用 户 ID 作为 购物 车 ID 
JL iE context.User.Identity.Name IsNot 
context.User.Identity.Name «» "" Then 


Nothing AndAlso 


Return context.User.Identity.Name 
End If 


， 未 登录 用 户 则 读 取 或 者 新 建 一 个 GUID 作为 购物 车 ID 
If context.Request.Cookies ("CartID") 


IsNot Nothing Then 
Return context.Request.Cookies("CartID").Value 
Else 


' 新 建 GUID 


Dim tempCartId As Guid = Guid.NewGuid() 


' 1% GUID 存储 到 Cookies 中 


context .Response.Cookies ("CartID") .Value = tempCartId.ToString() 


' 返回 购物 车 ID 
Return tempCartId.ToString() 
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End If 
End Function 'GetShoppingCartId 


End Class 
'ShoppingCartID 


50) 


(6) 在 DataAccess.CustomerDB 中 引入 如 下 命名 空间 : 
Imports System.Data.SqlClient 


Imports System.Configuration 
(7) 在 DataAccess.CustomerDB 中 添加 自 定义 方法 AddCustomer: 
添加 新 用 户 
«param name="fullName"> 姓 名 </param> 
«param name="email"> 邮 件 地 址 </param> 
«param name="password">#fi4¥</param> 
<returns> 用 户 ID</returns> 


Public Function AddCustomer (ByVal fullName As String, 


ByVal email As String, ByVal password As String) As [String] 


' 新 建 Connection All Command 实例 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 

Dim myCommand As New SqlCommand("CustomerAdd", myConnection) 


， 指定 操作 类 型 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 

， 添加 参数 给 存储 过 程 

' 用 户 姓 名 

Dim parameterFullName As New SqlParameter ( 
"@FullName", SqlDbType.NVarChar, 50) 

parameterFullName.Value = fullName 


myCommand.Parameters.Add(parameterFullName) 


' FH pa 
FR 


Email 


Dim parameterEmail As New SqlParameter("@Email", SqlDbType.NVarChar, 


parameterEmail.Value = email 
myCommand.Parameters.Add(parameterEmail) 

' 用 户 密码 

Dim parameterPassword As New SqlParameter ( 


"@Password", SqlDbType.NVarChar, 50) 
parameterPassword.Value = password 


myCommand.Parameters.Add(parameterPassword) 


' 输 出 参数 ， 添 加 成 功 后 返回 用 户 编号 

Dim parameterCustomerID As New SqlParameter ( 
"@CustomerID", SqlDbType.Int, 4) 

parameterCustomerID.Direction = ParameterDirection.Output 


myCommand.Parameters.Add(parameterCustomerID) 


dev, 


' 打开 连接 ， 执 行 操作 
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myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 


， 活动 用 户 编号 (通过 存储 过 程 的 输出 参数 ) 


Dim customerId As Integer = CInt(parameterCustomerID.Value) 


Return customerId.ToString() 
Catch ex As Exception 
Return [String].Empty 
End Try 
End Function 'AddCustomer 


(8) 在 数据 库 中 添加 CustomerAdd 存储 过 程 : 
CREATE Procedure CustomerAdd 
( 


@FullName nvarchar (50), 
@Email nvarchar (50), 
@Password  nvarchar(50), 
@CustomerID int OUTPUT 

) 

AS 


INSERT INTO Customers 
( 
FullName, 
EmailAddress, 
Password 


) 


VALUES 
( 


@FullName, 
@Email, 
@Password 


) 


SELECT 
@CustomerID = @@Identity 
GO 
(9) 在 DataAccess.ShoppingCartDB 文件 中 引入 如 下 命名 空间 : 


Imports System.Data.SqlClient 


Imports System.Configuration 
(10) 在 DataAccess.ShoppingCartDB 文件 中 添加 自 定义 方法 MigrateCart: 
， 合并 购物 车 : 用 于 合并 用 户 登 录 前 和 登录 后 的 购物 车 
' «param name="oldCartId"> 登 录 前 的 购物 车 ID«/param» 
' «param name="newCartId"> 登 录 后 的 购物 车 ID</param> 
Public Sub MigrateCart (ByVal oldCartId As [String], 
ByVal newCartId As [String]) 


:新建 Connection All Command 实例 
Dim myConnection As New SqlConnection ( 
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ConfigurationSettings.AppSettings ("ConnectionString")) 
Dim myCommand As New SqlCommand("ShoppingCartMigrate", myConnection) 


， 指定 操作 类 型 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 

， 添加 参数 到 存储 过 程 

Dim cartl As New SqlParameter("@OriginalCartId ", SqlDbType.NVarChar, 


50) 
cartl.Value = oldCartId 
myCommand.Parameters.Add(cart1) 


Dim cart2 As New SqlParameter ("@NewCartId ", SqlDbType.NVarChar, 50) 
cart2.Value = newCartId 
myCommand.Parameters.Add(cart2) 


， 打开 连接 ， 执 行 操作 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 
End Sub 'MigrateCart 
(OD 在 数据 库 中 添加 存储 过 程 ShoppingCartMigrate: 
CREATE Procedure ShoppingCartMigrate 
( 


@OriginalCartId nvarchar(50), 


QNewCartId nvarchar (50) 
) 
AS 
UPDATE 

ShoppingCart 
SET 

CartID = @NewCartId 
WHERE 

CartID = @OriginalCartId 
GO 


(120 注册 功能 实现 完毕 ， 可 以 测试 效果 。 
理论 上 ， 一 个 单独 的 注册 系统 应 该 非常 简单 ， 仅 仅 需 要 将 用 户 输入 的 信息 提交 到 数 
据 库 即 可 。 但 是 在 本 项 目 中 ， 注 册 系 统 则 相对 来 说 有 较 高 难度 和 技巧 。 

在 Register.aspx 页 面 中 ， 用 户 输入 了 信息 后 单 击 按钮 提交 信息 ， 如 果 数 据 合 法 ， 则 
将 执行 按钮 单 击 事件 中 的 代码 。 该 事件 处 理 程 序 首先 执行 的 逻辑 是 保存 用 户 旧 的 购物 车 
编号 : 


[25 


MY 


' 保 存 旧 的 购物 车 编号 ， 以 便 注册 后 合并 购物 车 
Dim cartID As New ShoppingCartID 
Dim tempCartID As [String] = cartID.GetShoppingCartId() 

显然 tempCartID 为 旧 的 购物 车 编号 ， 且 其 值 来 源 于 ShoppingCartID 类 的 


GetShoppingCartId 777X . GetShoppingCartId 方法 专门 用 于 获取 用 户 的 购物 车 编号 ， 前 国 


已 经 讨论 过 ， 如 果 用 户 已 经 登录 ， 则 将 用 户 的 ID 作为 购物 车 编号 。 那 么 该 方法 如 何 得 
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知 用 户 是 否 登录 呢 ? 在 后 面 将 看 到 用 户 登录 以 后 将 会 有 信息 保存 到 Http 请 求 的 上 下 文 
中 。 因 此 该 方法 从 Http 请 求 的 上 下 文中 获取 用 户 的 个 人 信息 ， 如 果 信 息 不 存在 ， 则 表示 
j 户 没有 登录 ， 如 果 存 在 ， 则 表示 用 户 已 经 登录 ,应 该 将 用 户 编号 返回 作为 购物 车 编号 : 
， 获取 当前 请 求 的 上 下 文 信息 
Dim context As System.Web.HttpContext = System.Web.HttpContext.Current 
， 如 果 用 户 已 经 登录 ， 则 以 用 户 ID 作为 购物 车 ID 
If Not (context.User.Identity.Name Is Nothing) 
And context.User.Identity.Name «» "" Then 


Return context.User.Identity.Name 
End If 
如 果 用 户 没 有 登录 ， 则 首先 判断 在 Cookie 中 是 否 存在 作为 购物 车 编号 的 GUID 4 
果 没 有 则 新 建 一 个 GUID 作为 其 编号 ， 并 将 其 保存 到 Cookie 中 : 
， 未 登录 用 户 则 读 取 或 者 新 建 一 个 GUID 作为 购物 车 ID 
If Not (context.Request.Cookies("CartID") Is Nothing) Then 
Return context.Request.Cookies("CartID").Value 
Else 
' 新 建 GUID 


Dim tempCartId As Guid = Guid.NewGuid () 


' 将 GUID 存储 到 Cookies 中 
context.Response.Cookies("CartID").Value = tempCartId.ToString() 


' 返回 购物 车 ID 
Return tempCartId.ToString() 
End Lf 


回 到 按钮 单 击 事件 处 理 程 序 RegisterBtn Click 中 来 。 当 保存 了 用 户 旧 的 购物 车 编号 
以 后 ， 应 该 尝试 将 用 户 输入 的 信息 添加 到 数据 库 。 注 意 到 该 系统 要 求 每 个 用 户 具 备 惟 
的 邮箱 地 址 ， 也 就 是 邮箱 地 址 不 能 重复 ， 因 此 在 添加 数据 时 可 能 不 成 功 〈 用 户 输 入 的 邮 
箱 信息 已 经 存在 数据 库 中 )。 添 加 信息 到 数据 库 是 用 CustomerDB 的 AddCustomer 方法 实 
现 的 。 当 成 功 添加 用 户 信息 到 数据 库 中 时 ， 该 方法 返回 新 添加 的 用 户 的 编号 ， 添 加 失败 
时 则 返回 String Empty. AddCustomer 方法 执行 时 首先 建立 数据 连接 和 数据 命令 对 和 象 , 需 
要 注意 的 是 数据 命令 的 命令 文本 为 存储 过 程 CustomerAdd， 该 存储 过 程 使 用 到 了 输出 参 
数 : 

CREATE Procedure CustomerAdd 

( 


— 


@FullName nvarchar (50), 
@Email nvarchar (50), 
@Password nvarchar (50), 
@CustomerID int OUTPUT 


) 

其 中 参数 @CustomerID 即 为 输出 参数 。 存 储 过 程 的 输出 参数 表示 在 存储 过 程 执行 
时 ， 该 参数 不 需要 被 赋值 ， 存 储 过 程 执行 以 后 ， 输 出 参数 将 获取 一 个 值 ， 该 值 可 以 被 应 
用 程序 捕获 。 例 如 在 本 存储 过 程 中 ， 当 存储 过 程 执行 完 以 后 ，@CustomerID 的 值 为 
@ @Identity 的 值 : 


90 reydey) 


SELECT 
@CustomerID = GG Identity 


€ Q Identity 是 SQL Server 数据 库 的 关键 字 , 表示 在 一 条 INSERT, SELECT INTO 或 


大 容量 复制 语句 完成 后 ，@@Identity 中 包含 此 语句 产生 的 最 后 的 标识 值 。 因 此 
CustomerAdd 执行 以 后 ，@ @Identity 将 保存 最 新 添加 的 用 户 的 编号 信息 。 
那么 如 何在 程序 中 获取 存储 过 程 的 输出 参数 的 值 呢 ? 在 AddCustomer 方法 中 通过 如 
下 代码 为 存储 过 程 添加 参数 @CustomerID ; 
' 输 出 参数 ， 添 加 成 功 后 返回 用 户 编号 
Dim parameterCustomerID As New SqlParameter ("@CustomerID", 
SqlDbType.Int, 4) 


parameterCustomerID.Direction - ParameterDirection.Output 
myCommand.Parameters.Add(parameterCustomerID) 


显然 ， 获 取 存 储 过 程 输出 参数 的 值 非常 简单 ， 只 需要 在 添加 参数 时 指定 参数 的 
Direction 属性 为 ParameterDirection.Output 即 可 。 当 数据 命令 执行 以 后 ， 参 数 
parameterCustomerID 的 value 属性 保存 了 存储 过 程 返回 的 值 ; 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 
， 活动 用 户 编号 (通过 存储 过 程 的 输出 参数 ) 
Dim customerId As Integer = CInt(parameterCustomerID.Value) 
再 次 回 到 按钮 单 击 事件 处 理 程 序 RegisterBtn_Click 中 来 。 当 调用 了 数据 访问 层 的 执 
行 添加 的 方法 以 后 ， 程 序 将 接着 执行 如 下 代码 : 
If customerID «» "" Then 
' 将 用 户 ID 指定 为 通过 安全 登录 的 信息 
FormsAuthentication.SetAuthCookie(customerID, False) 
' 合 并 购物 车 
shoppingCart.MigrateCart (tempCartID, customerID) 
' 将 用 户 姓名 保存 到 Cookies 中 
Response.Cookies("FullName").Value = 
Server .HtmlEncode (Me.Name. Text) 
重 定 向 到 购物 车 界面 
Response.Redirect ("ShoppingCart.aspx") 
Else 
Me.MyError.Text = "注册 失败 该 邮件 地 址 已 有 人 使 用 <br> 


<img align=left height-1 width-92 src-images/1xl.gif»" 
End If 
这 段 代 码 表示 如 果 添 加 成 功 ， 即 customerID 不 为 室 ， 则 应 该 将 用 户 的 编号 保存 到 
Http 请 求 的 上 下 文中 : 


FormsAuthentication.SetAuthCookie(customerID, False) 


另外 也 将 用 户 的 姓名 保存 到 Cookie 中 : 


Response.Cookies ("FullName") .Value = Server.HtmlEncode (Me .Name.Text) 
那么 下 面 这 一 行 代码 的 功能 是 什么 呢 : 


shoppingCart.MigrateCart (tempCartID,customerID) 
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前 面 已 经 分 析 过 了 ， 用 户 成 功 注册 或 登录 以 后 应 该 将 用 户 登 录 前 的 购物 车 信息 修改 


为 登录 后 用 户 的 购物 车 。 修 改 操作 非常 简单 ， 仅 仅 需 要 将 数据 库 中 购物 车 的 编号 由 旧 的 
GUID 修改 为 新 的 用 户 编写 即 可 , 上面 的 代码 即 实现 此 功能 。 数据 访问 层 中 ShoppingCart 
类 的 MigrateCart 方法 负责 实施 此 操作 。 该 方法 将 旧 的 购物 车 编号 和 新 的 购物 车 编号 一 起 
传递 给 存储 过 程 ShoppingCartMigrate， 该 存储 过 程 则 执行 简单 的 update 操作 : 

UPDATE 

ShoppingCart 


SET 
CartID = @NewCartId 


WHERE 
CartID = @OriginalCartId 


至 此 用 户 注册 功能 全 部 完成 。 


67 用 户 登录 处 理 


一 旦 用 户 注册 成 功 以 后 ， 用 户 再 次 访问 本 在 线 书店 时 不 需要 重新 注册 ， 而 是 登录 。 
登录 界面 由 login.aspx 页 面 提供 ， 而 CustomerDB 则 提供 登录 的 数据 访问 的 功能 。 数据 库 
中 Customers 表 为 数据 存储 层 。 
户 登 录 界 面 login.aspx 中 同样 使 用 到 了 数据 验证 控件 ， 另 外 该 页 面 还 提供 了 新 用 
户 注册 的 链接 ， 方 便 没有 注册 的 用 户 链接 到 Registeraspx 页 面 进行 注册 。 

实现 用 户 登 录 功 能 的 操作 步骤 如 下 ; 

(1) 在 Bookstore 项 目 中 添加 新 的 Web 窗 体 ， 命 名 为 Login.aspx。 
(2) 在 Login.aspx 的 设计 视图 对 页 面 进 行 布 局 ， 设 计 完 成 后 的 效果 如 图 6-14 所 示 : 


WAS PINEMBOOKSTORE 


KPA, RRANT OY SEARCH | 


图 6-14  Login.aspx 的 设计 视图 
相关 代码 如 下 : 


«$0 Page language="vb" CodeFile-"Login.aspx.vb" AutoEventWireup-"false" 
Inherits-"BookStore.Login" %> 
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'agPrefix-"ucl" TagName-"Header" Src-"modules/Header.ascx" %> 


«$80 Register 


«$80 Register TagPrefix="ucl" TagName-"Menu" Src-"modules/Menu.ascx" %> 
«HTML» 

«HEAD» 
<link rel="stylesheet" type="text/css" href-"css/BookStore.css"» 
</HEAD> 


<body background="images/sitebkgrd.gif" leftmargin="0" topmargin="0" 


rightmargin="0" bottommargin="0" 
marginheight="0" marginwidth="0"> 
<table cellspacing="0" cellpadding="0" width="100%" border="0"> 
<tr> 
<td colspan="2"> 
«ucl:Header id-"Headerl" runat="server"></ucl:Header> 
«/td» 
SUAETES- 
«tr» 
<td valign="top"> 
<img height="1" src-"images/1xl.gif" width="145"> 
«ucl:Menu id="Menul" runat-"server"»«/ucl:Menu»&nbsp; &nbsp; 
«/td» 
<td align="left" valign="top" width-"100$" nowrap> 
<table height="100%" align="left" cellspacing="0" 
cellpadding="0" width="100%" border="0"> 
<tr valign="top"> 


<td nowrap> 
<br> 


<form runat="server" ID-"Forml"» 第 
«img align="left" width="24" height="1" CN 
src="images/1x1.gif"> 章 
<table cellspacing="0" cellpadding="0" 
width="100%" border-"0"» 在 

«tr» 线 
«td class-"ContentHead"» d 
«img align-"left" JE 
height="32" 实 
width="60" src-"images/1xl.gif"»X$5K 例 
«br» 
«/td» 
</tr> 
</table> 


<img align="left" height="1" width="92" 
src="images/1x1l.gif"> 
<table height="100%" cellspacing="0" 
cellpadding="0" border="0"> 
<tr valign="top"> 
<td width="550"> 
<asp:Label id="Message" 


class-"ErrorText" runat="server" /> 


<br> 
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size- Gy 
/»&nbsp; 
/> 
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«br» 
&nbsp; <span class="NormalBold"> 
电子 邮件 地 址 </ span> 
«br» 


&nbsp; «asp: TextBox 
id="email" runat="server" 


<asp:RequiredFieldValidator 
id="emailRequired" ControlToValidate="email" 
Display="dynamic" Font-Name-"verdana" 

Font-Size-"9pt" ErrorMessage=" 用 户 名 不 能 为 室 " runat="server" 


«asp:RegularExpressionValidator 
id="emailValid" ControlToValidate-"email" 


ValidationExpression="[\w\.-]+(\+[\w-] *) ?@([\w-]+\.)+[\w-]+" 
Display="Dynamic" ErrorMessage=" 必 须 输 入 合法 邮件 地 址 " runat="server" /> 


id="password" 


/»&nbsp; 
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<br> 
<br> 
&nbsp; <span class="NormalBold"> 
BRAY </span> 
<br> 


&nbsp; <asp:TextBox 
textmode="password" size="25" runat="server" 


<asp:RequiredFieldValidator id="passwordRequired" 
ControlToValidate="password" Display="Static" 
Font-Name-"verdana" Font-Size-"9pt" 
ErrorMessage- A DAEA" runat="server" /> 
«br» 
oye 
«br» 
«asp:ImageButton id="LoginBtn" 
ImageURL-"images/sign in now.gif" runat="server" /> 
iq 
«br» 
«span class="Normal"> 如 果 你 还 没有 账号 ， 
那么 现在 就 注册 一 个 </ span> 


src="images/register.gif"></a> 


< 
«br» 
<a href="register.aspx"> 
<img border="0" 
</td> 
</tr> 
</table> 
</form> 


«/HTML» 


(3) 双击 


«/td» 
f EE 
«/table» 
«/td» 


«/tr» 
«/table» 
«/body» 


Sign In Now 按钮 ， 注 册 按 钮 单 击 事件 LoginBtn_Click。 


(4) 在 Login.aspx.vb 文件 中 引入 DataAccess 命名 空间 。 
C5) 编写 按钮 单 击 事件 的 处 理 程序 : 
Piciweice Sully Mee neem (Cee (eos ) Handles LoginBtn.Click 


If Page.IsValid Then 
' 取 得 旧 的 购物 车 编号 


Dim 
Dim 


getCartID As New ShoppingCartID 
cartID As [String] = getCartID.GetShoppingCartId() 


' 新 建 购物 车 数据 访问 实例 


Dim 


' 验 证 登录 信息 


Dim 
Dim 


cart As New ShoppingCartDB 


customer As New CustomerDB 


customerID As [String] = customer.Login(email.Text, 
password.Text) 


If Not (customerID Is Nothing) Then 


' 合 并 购物 车 
cart.MigrateCart(cartID, customerID) 
' 碍 询 客户 具体 信息 


Dim customerDetails As Customer - 


customer.GetCustomerDetails (customerID) 


' 存 储 客户 姓名 到 Cookies 中 

Response.Cookies("FullName").Value = customerDetails.FullName 
' 重 定向 到 登录 之 前 访问 的 页 面 
FormsAuthentication.RedirectFromLoginPage(customerID, False) 


Else 
Me.Message.Text = "登录 失败 ， 请 重 试 " 
End If 
End If 
End Sub 
(6) 在 DataAccess 项 目 中 的 CustomerDB 文件 中 添加 自 定 义 方 法 Login: 
' 检查 用 户 是 否 登录 成 功 


' «param name-"email"»H]|" Email</param> 


' «param name="password"> 用 户 密码 </param> 
' <returns> 用 户 的 ID， 如 果 登 录 不 成 功 则 返回 null«/returns» 
(Sbload Holoreh sor exe a ol (eo ) AS [Strie] 


' Æ Connection Jl Command WH 
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End Function 'Login 
(7) 修改 DataAccess Jii A FAY Customer.vb 文件 如 下 : 


Public Class Customer 


ASP.NET 4.0 与 Dreamweaver CS6 2 HEL [o] y; 


Dim myConnection As New SqlConnection ( 


ConfigurationSettings.AppSettings ("ConnectionString")) 
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Dim myCommand As New SqlCommand("CustomerLogin", myConnection) 


， 指定 操作 类 型 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 
， 添加 参数 到 存储 过 程 

'Email1， 相 当 用 户 名 


Dim parameterEmail As New SqlParameter("@Email", SqlDbType.NVarChar, 


parameterEmail.Value - email 


myCommand.Parameters.Add(parameterEmail) 


' 密 码 参 数 

Dim parameterPassword As New SqlParameter ( 
"@Password", SqlDbType.NVarChar, 50) 

parameterPassword.Value = password 

myCommand.Parameters.Add(parameterPassword) 


' 输 出 参数 : 用 户 编号 

Dim parameterCustomerID As New SqlParameter ( 
"@CustomerID", SqlDbType.Int, 4) 

parameterCustomerID.Direction = ParameterDirection.Output 


myCommand.Parameters.Add(parameterCustomerID) 


， 打开 连接 并 执行 操作 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 


Dim customerId As Integer - CInt(parameterCustomerID.Value) 


If customerId = 0 Then 
Return Nothing 


Else 
Return customerId.ToString() 
End If 


Private m fullName As [String] 


Private m email As [String] 


Private m password As [String] 


户 姓 名 


Public Property FullName() As [String] 


Get 


Return Me.m fullName 
End Get 
Set (ByVal Value As [String]) 


Me.m fullName - Value 
End Set 
End Property 


电子 邮件 


Public Property Email() As [String] 


Get 

Return Me.m email 

End Get 

Set(ByVal Value As [String]) 
Me.m email - Value 

End Set 


End Property 


JP 
Public Property Password() As [String] 
Get 
Return Me.m password 
End Get 


Set(ByVal Value As [String]) 
Me.m password = Value 
End Set 


End Property 


End Class 'Customer 


(8) 在 DataAccess.CustomerDB 中 添加 自 定义 方法 GetCustomerDetails: 
， 依据 用 户 ID 获得 用 户 具 体 信息 


«param name="customerID"> 用 户 ID«/param» 
<returns> 包 含 用户 信 息 的 用 户 实例 </returns> 


Public Function GetCustomerDetails(ByVal customerID As [String]) As 


Customer 


' Create Instance of Connection and Command Object 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 

Dim myCommand As New SqlCommand ("CustomerDetail", myConnection) 


' Mark the Command as a SPROC 
myCommand.CommandType = CommandType.StoredProcedure 


' Add Parameters to SPROC 

Dim parameterCustomerID As New SqlParameter( 
"QCustomerID", SqlDbType.Int, 4) 

parameterCustomerID.Value - Int32.Parse(customerID) 

myCommand.Parameters.Add(parameterCustomerID) 


Dim parameterFullName As New SqlParameter ( 

"@FullName", SqlDbType.NVarChar, 50) 
parameterFullName.Direction = ParameterDirection.Output 
myCommand.Parameters.Add(parameterFullName) 


Dim parameterEmail As New SqlParameter("@Email", SqlDbType.NVarChar, 
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50) 
parameterEmail.Direction = ParameterDirection.Output 
myCommand.Parameters.Add(parameterEmail) 


Dim parameterPassword As New SqlParameter ( 

"@Password", SqlDbType.NVarChar, 50) 
parameterPassword.Direction = ParameterDirection.Output 
myCommand.Parameters.Add(parameterPassword) 


myConnection.Open() 
myCommand.ExecuteNonQuery () 
myConnection.Close() 


' 建立 客户 实体 
Dim myCustomer As New Customer 
， 依据 存储 过 程 的 输出 参数 来 对 客户 实体 赋值 


myCustomer.FullName = CStr(parameterFullName.Value) 


myCustomer.Password = CStr(parameterPassword.Value) 
myCustomer.Email = CStr(parameterEmail.Value) 


Return myCustomer 
End Function 'GetCustomerDetails 


(9) 在 数据 库 中 添加 CustomerLogin 存储 过 程 : 
CREATE Procedure CustomerLogin 


( 


@Email nvarchar (50), 
@Password nvarchar (50), 
@CustomerID int OUTPUT 


) 
AS 


SELECT 
@CustomerID = CustomerID 


FROM 
Customers 


WHERI 

EmailAddress = (Email 
AND 

Password = (Password 


Fl 


IF @@Rowcount < 1 
SELECT 
@CustomerID = 0 
GO 
C100. 在 数据 库 中 添加 存储 过 程 CustomerDetail: 
CREATE Procedure CustomerDetail 


( 


@CustomerID int, 
@FullName nvarchar(50) OUTPUT, 


90 1e3deu) 


280 


@Email nvarchar (50) OUTPUT, 
@Password  nvarchar(50) OUTPUT 


) 


AS 
SELECT 
@FullName = FullName, 
@Email = EmailAddress, 
@Password = Password 
FROM 
Customers 
WHERE 
CustomerID = @CustomerID 
GO 


(OD) 至 此 用 户 登 录 功 能 完成 。 读 者 可 以 测试 效果 。 

当 按 钮 被 单 击 以 后 ， 首 先 程序 将 保存 当前 用 户 的 购物 车 的 编号 : 
Dim getCartID As New ShoppingCartID 

Dim cartID As [String] = getCartID.GetShoppingCartId() 


接着 验证 用 户 输入 的 登录 信息 是 否 正确 : 
Dim customer As New CustomerDB 


Dim customerID As [String] = customer.Login(email.Text, password.Text) 

显然 实际 验证 处 理 用 CustomerDB 的 Login 方法 实现 。Login 方法 首先 建立 与 数据 局 
的 连接 ， 然 后 建立 命令 对 象 ， 指 定 命令 文本 为 CustomerLogin 存储 过 程 ， 并 将 参数 传递 
给 存储 过 程 : 

"Email1， 相 当 用 户 名 

Dim parameterEmail As New SqlParameter("@Email", SqlDbType.NVarChar, 50) 


th 


T 


parameterEmail.Value = email 
myCommand. Parameters .Add (parameterEmail) 


:密码 参数 
Dim parameterPassword As New SqlParameter ( 
"QPassword", SqlDbType.NVarChar, 50) 


parameterPassword.Value - password 
myCommand. Parameters .Add (parameterPassword) 


存储 过 程 CustomerLogin 判断 用 户 输入 的 邮箱 和 密码 是 否 匹 配 ， 如 果 匹 配 则 通过 输 

8 参数 返回 该 用 户 的 编号 ， 如 果 不 匹 配 则 返回 0 给 输出 参数 : 
SELECT 
@CustomerID = CustomerID 


Er 


FROM 
Customers 


WHERE 
EmailAddress - (Email 

AND 
Password = (Password 


IF @@Rowcount < 1 
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SELECT 
@CustomerID = 0 
HHE @ @Rowcount 表示 符合 条 件 的 记录 数量 。 
Login 方法 还 必须 指定 一 个 输出 类 型 的 参数 ， 用 来 获取 存储 过 程 输出 参数 的 信息 : 
Dim parameterCustomerID As New SqlParameter ("GCustomerID", 
SqlDbType.Int, 4) 

parameterCustomerID.Direction - ParameterDirection.Output 
———— — 


如 果 输 出 参数 返回 0， 即 用 户 登 录 失 败 ， 则 Login 方法 返回 nl, EUH D 4% 
化 为 string 类 型 后 返回 : 


Dim customerId As Integer = CInt (parameterCustomerID.Value) 


= 


If customerId = 0 Then 
Return Nothing 
Else 
Return customerId. 
End If 


回 到 按钮 单 击 事件 处 理 程 序 中 来 。 当 调用 Login 方法 验证 了 输入 的 信息 以 后 ， 依 据 
Login 方法 的 返回 值 接着 执行 下 一 步 操 作 。 如 果 返 回 值 非 null， 则 用 户 登 录 成 功 ， 必 须 将 
登录 前 用 户 的 购物 车 编号 更 新 为 当前 用 户 的 ID， 此 项 操作 巾 前面 提 到 过 的 
ShoppingCartDB 的 MigrateCart 方法 实现 : 

cart.MigrateCart (cartID,customerID) 

现在 要 做 的 事情 就 是 依据 用 户 的 ID 来 获取 用 户 的 详细 信息 ， 然 后 将 用 户 的 姓名 保 
存 到 Cookie 中 。CustomerDB 的 GetCustomerDetails 方法 接受 参数 用 户 ID， 然 后 调用 存 
储 过 程 CustomerDetail 来 获取 指定 ID 的 用 户 的 详细 信息 。 该 方法 并 不 直接 返回 数据 阅读 
器 , 而 是 完全 通过 存储 过 程 的 输出 参数 来 获取 信息 , 这 样 程序 的 执行 效率 将 大 幅度 提高 。 

CustomerDB 的 GetCustomerDetails 方法 首先 建立 数据 连接 和 数据 命令 , 然后 为 存储 
过 程 添 加 参数 : 

Dim parameterCustomerID As New SqlParameter ( 
"QCustomerID", SqlDbType.Int, 4) 


parameterCustomerID.Value - Int32.Parse(customerID) 
myCommand.Parameters.Add(parameterCustomerID) 


oString() 


i 


Dim parameterFullName As New SqlParameter ( 

"@FullName", SqlDbType.NVarChar, 50) 
parameterFullName.Direction = ParameterDirection.Output 
myCommand.Parameters.Add(parameterFullName) 


Dim parameterEmail As New SqlParameter( 

"@Email", SqlDbType.NVarChar, 50) 
parameterEmail.Direction = ParameterDirection. Output 
myCommand.Parameters.Add(parameterEmail) 


Dim parameterPassword As New SqlParameter ( 
"@Password", SqlDbType.NVarChar, 50) 
parameterPassword.Direction - ParameterDirection.Output 


myCommand.Parameters.Add(parameterPassword) 
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显然 , 除了 用 户 ID 以 外 , 其 他 参数 都 是 输出 参数 。 当 调用 了 命令 对 象 的 ExecuteNon 


Query 方法 以 后 ，GetCustomerDetails 方法 将 输出 参数 的 值 赋 给 客户 实体 并 将 客户 实体 返 
回 : 
Dim myCustomer As New Customer 


， 依据 存储 过 程 的 输出 参数 来 对 客户 实体 赋值 


myCustomer.FullName = CStr(parameterFullName.Value) 


= 


myCustomer.Password = CStr(parameterPassword.Value) 
myCustomer.Email = CStr(parameterEmail.Value) 


Return myCustomer 

再 次 回 到 按钮 单 击 事件 中 来 ， 现 在 要 做 的 是 从 客户 实体 中 获取 客户 姓名 ， 保 存 到 

Cookie 中 ， 然 后 将 浏览 器 重 定向 到 登录 页 面 之 前 所 访问 的 页 面 : 
' 存 储 客户 姓名 到 Cookies 中 
Response.Cookies("FullName").Value = customerDetails.FullName 

HOE [6] 81 Soe RET nd HS] LT 

FormsAuthentication.RedirectFromLoginPage(customerID, False) 

至 此 ， 用 户 登 录 功 能 实现 。 


6.8 购物 车 处 理 


购物 车 用 于 保存 当前 用 户 所 希望 购买 的 书籍 信息 。 当 用 户 访问 图 书 列表 页 面 或 者 医 


= 


书 具 体 信息 页 面 ， 单 击 “Add To Cart” 链 接 时 ， 程 序 会 将 对 应 的 图 书 添加 到 购物 车 中 。 
另外 前 面 已 经 说 明 过 ， 无 论 网 友 是 否 已 经 登录 ， 都 能 直接 添加 书籍 到 购物 车 ， 而 且 登 录 第 
前 后 购物 车 中 的 信息 不 会 丢失 或 者 被 修改 。 D 
在 本 项 目 中 位 于 表现 层 的 是 addToCart.aspx 和 ShoppingCart.aspx 两 个 页 面 。 位 于 数 = 
据 访 问 层 的 为 DataAccess 项 目 中 的 ShoppingCartDB.vb 。 位 于 数据 存储 层 的 为 数据 表 上 
ShoppingCart. 4 
店 
[6. 8.1 添加 书籍 到 购物 车 addToCart. aspx » 


addToCart.aspx 文件 负责 将 指定 ID 的 图 书 添加 到 用 户 的 购物 车 中 。 事 实 上 
addToCart.aspx 文件 没有 任何 表示 元 素 ， 也 就 是 该 页 面 并 不 呈现 任何 用 户 界面 给 浏览 
它 仅仅 只 是 执行 添加 信息 操作 ， 然 后 立即 重 定向 购物 车 列表 页 面 ShoppingCart.aspx 。 
addToCart.aspx 必须 从 URL 中 获取 要 添加 到 购物 车 的 书籍 ID fii 

该 页 面 的 实现 步骤 如 下 : 

(1) 在 项 目 Bookstore 中 添加 新 的 Web 窗 体 ， 命 名 为 addToCart.aspx。 
(2) 在 addToCart.aspx 的 设计 视图 中 双击 鼠标 ， 进 入 到 addToCart.aspx.vb 文件 。 
(3) 在 addToCart.aspx.vb 中 添加 命名 空间 DataAccess。 


(4) 编写 Page Load 事件 处 理 程序 如 下 : 
Private Sub Page Load(ByVal sender As System.Object, 
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ByVal e As System.EventArgs) Handles MyBase.Load 
If Not (Request.Params("BookID") Is Nothing) Then 
"获取 用 户 购物 车 ID 
Dim cart As New ShoppingCartID 
Dim cartID As [String] = cart.GetShoppingCartId() 


' 添 加 购物 信息 到 数据 库 ， 更 新 购物 车 信息 
Dim cartDB As New ShoppingCartDB 


cartDB.AddItem(cartID, Int32.Parse(Request.Params ("BookID")), 1) 
End If 


= 


Response.Redirect ("ShoppingCart .aspx") 

End Sub 

(5) 在 ShoppingCartDB 中 添加 自 定义 方法 AddItem: 

' 添加 图 书 到 购物 车 中 

' «param name="cartID"> 购 物 车 编号 </param> 

' «param name="bookID"> 图 书 编号 </Param> 

' «param name="quantity"> 数 量 </param> 

Public Sub AddItem(ByVal cartID As String, ByVal bookID As Integer, 
ByVal quantity As Integer) 


:新建 Connection All Command 对 象 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString") ) 

Dim myCommand As New SqlCommand ("ShoppingCartAddItem", myConnection) 

， 指定 命令 对 象 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 

"为 存储 过 程 添加 参数 信息 

Dim parameterBookID As New SqlParameter("@BookID", SqlDbType.Int, 4) 

parameterBookID.Value = bookID 

myCommand.Parameters.Add(parameterBookID) 


Dim parameterCartID As New SqlParameter ( 
"QCartID", SqlDbType.NVarChar, 50) 

parameterCartID.Value = cartID 

myCommand.Parameters.Add(parameterCartID) 


Dim parameterQuantity As New SqlParameter ("@Quantity", SqlDbType.Int, 
4) 

parameterQuantity.Value = quantity 

myCommand.Parameters.Add(parameterQuantity) 

， 打开 连接 并 执行 操作 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 
End Sub 'AddItem 


(6) 在 数据 库 中 添加 存储 过 程 ShoppingCartAddItem: 
CREATE Procedure ShoppingCartAddItem 
( 
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至 此 添加 


@CartID nvarchar(50), 
@BookID int, 
@Quantity int 


As 
DECLARE @CountItems int 
SELECT 
@CountItems = Count (BookID) 
FROM 
ShoppingCart 
WHERE 
BookID = @BookID 
AND 
CartID = @CartID 


UPDATE 


ShoppingCart 


SET 
Quantity 
WHERE 
BookID = 
AND 
(Crewe JUD) 


= (@Quantity + ShoppingCart.Quantity) 


@BookID 


@CartID 


EN 
+ 
S 
it 


ELSE 


INSER 


INTO 


CartID, 


ShoppingCart 


Quantity, 


BookID 
) 
VALUES 


( 
@CartID, 


@Quantity, 


@BookID 


GO 


IH ES P S UU] 4E I] Se EN ZA, 


车 编号 等 信 ， 


一 本 书 添加 到 购物 车 ， 


这 种 情况 下 应 该 怎么 处 理 


四 书 不 存在 则 添加 到 数据 库 中 / 


7N 


IF GCountItems > 0 /* 该 图 书 已 经 存在 ， 则 只 更 新 图 书 数量 


BB 籍 到 购物 车 的 功能 完成 ， 可 以 自行 测试 效果 。 


O se 


需要 将 图 书 编号 、 图 书 数量 


息 写 入 到 表 ShoppingCart 中 即 可 。 但 实际 


操作 时 要 注意 到 | 


该 书籍 是 否 


在 则 将 该 图 书 添加 到 购物 车 中 。 


已 经 存在 于 购物 车 


， 如 果 存 在 ， 则 将 访 
FT BBA, A 


We? 在 添加 书籍 到 购物 车 
图 书 的 数量 增加 1 即 可 ， 


] 户 可 能 多 


将 同 


写 就 非常 简单 。 


时 


判断 
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Page Load 事件 首先 获取 URL 传递 过 来 的 图 书 编号 , 判断 图 书 编号 是 否 为 空 , 不 为 

空 则 执行 操作 : 

If Not (Request.Params ("BookID") Is Nothing) Then 
' 获 取 用 户 购 物 车 ID 


Dim cart As New ShoppingCartID 


Dim cartID As [String] = cart.GetShoppingCartId() 


"添加 购物 信息 到 数据 库 ， 更 新 购物 车 信息 

Dim cartDB As New ShoppingCartDB 

cartDB.AddItem(cartID, Int32.Parse(Request.Params ("BookID")), 1) 
End If 


操作 完成 以 后 将 浏览 器 重 定向 到 ShoppingCart.aspx 页 面 : 
Response.Redirect ("ShoppingCart.aspx") ; 
显然 ShoppingCartDB 的 AddItem 方法 实现 了 添加 图 书 到 购物 车 的 功能 。AddItem 77 
法 接受 3 个 参数 ， 依次 为 购物 车 编号 、 图 书 编号 和 图 书 数量 。AddItem 方法 是 典型 的 数 
据 访 问 方法 ， 首 先 建立 连接 和 命名 对 象 ， 然 后 为 命令 文本 ShoppingCartAddItem 存储 过 
程 添加 参数 ， 最 后 调用 ExecuteNonQuery 执行 操作 。 存 储 过程 ShoppingCartAddItem 则 
相对 复杂 。 它 首先 从 程序 接受 购物 车 编号 、 图 书 编号 以 及 图 书 数量 这 三 个 参数 : 
CREATE Procedure ShoppingCartAddItem 
( 


@CartID nvarchar(50), 
@BookID int, 
@Quantity int 


DS 


) 
然后 它 必须 判断 该 ID 的 


DECLARE @CountItems int 


书 是 否 在 @CartID 所 对 应 的 购物 车 中 存在 : 


SELECT 
@CountItems = Count (BookID) 
FROM 
ShoppingCart 
WHERE 
BookID = @BookID 
AND 
CartID = @CartID 


如 果 存 在 则 只 更 新 图 书 数量 ， 不 存在 则 添加 该 书籍 信息 到 购物 车 : 
IF GCountItems > 0 /* 该 图 书 已 经 存在 ， 则 只 更 新 图 书 数量 */ 


UPDATE 
ShoppingCart 

SET 
Quantity = (@Quantity + ShoppingCart.Quantity) 

WHERE 
BookID 

AND 

(Crewe te JD) 


ELSE /* 图 书 不 存在 则 添加 到 数据 库 


@BookID 


@CartID 


中 */ 


MA, 


INSERT INTO ShoppingCart 


购物 车 


( 
Cou EX. 
Quantity, 
BookID 

) 

VALUES 

( 
@CartID, 
@Quantity, 
@BookID 

) 

户 添加 了 书籍 信息 到 购物 车 后 , 浏览 器 将 自动 定向 到 ShoopingCart.aspx 以 显示 
中 的 图 书信 息 。 


[I]e.8.2 购物 车 信息 列表 ShoppingCart. aspx 


ShoppingCart.aspx 页 面 负责 显示 用 户 的 购物 车 中 的 所 有 图 书信 息 ， 包 括 图 书 编号 、 
书 名 、 数 量 以 及 价格 等 信息 。 男 外 该 页 面 允许 用 户 对 购物 车 中 的 图 书信 息 进行 修改 ， 例 


如 修改 


书信 息 。 


图 书 数 量 ， 删 除 不 需要 的 图 书 等 。 该 页 面 使 用 DataGrid 控件 来 显示 购物 车 中 的 图 


实现 购物 车 的 步 又 如 下 : 
(1) 在 Bookstore 项 目 中 添加 新 的 Web 窗 体 ， 命 名 为 ShoppingCart.aspx。 
(2) 在 设计 视图 设置 页 面 布局 ， 其 中 DataGrid 控件 用 于 显示 购物 车 中 的 物品 信息 ， 
ImageButton 控件 提供 用 户 在 该 页 面 可 进行 的 操作 。 设 计 完 成 后 的 页 面 布 局 如 图 6-15 Br 
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图 6-15 ShoppingCart.aspx 设计 界面 


相关 的 ASPNET 代码 如 下 : 


«$8 Page language-"vb" CodeFile-"ShoppingCart.aspx.vb" 


fk o 3H 


E 


= 
= 
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AutoEventWireup-"false" Inherits-"BookStore.ShoppingCart" $» 
«$8 Register ' 


通 


'agPrefix-"ucl" TagName-"Header" Src-"modules/Header.ascx" %> 


«$80 Register TagPrefix-"ucl" TagName-"Menu" Src-"modules/Menu.ascx" %> 


«table cellspacing="0" cellpadding="0" 
width="100%" border="0"> 


<tr> 
<td class="ContentHead"> 
<img align="left" 
height="32" 
width="60" 
src="images/1x1.gif" Wwe 
<br> 
</td> 
</tr> 
</table> 
<img align="left" height="4" width="110" 
src-"images/1xl.gif"» «font color="red"> 
<asp:Label id-"MyError" class-"ErrorText" 
EnableViewState-"false"  runat-"Server" 
us 
«/font» 
SI» 


<img align="left" height="15" width-"24" 
src="images/1x1.gif" border="0"> 
<asp:panel id="DetailsPanel" 
runat="server"> 
«IMG height="1" src-"images/1xl.gif" 
width="50" align="left"> 
<TABLE height="100%" cellSpacing="0" 
cellPadding="0" width="550" border="0"> 
<TR vAlign="top"> 
<TD width="550"> 
<asp:DataGrid id-"MyList" runat-"server" 
Font-Names-"Verdana" 
BorderColor-"Black" GridLines-"Vertical" 
cellpadding-"4" Font-Name-"Verdana" Font-Size-"8pt" 
ShowFooter="True" HeaderStyle-CssClass-"CartListHead" 
FooterStyle-CssClass-"CartListFooter" 
ItemStyle-CssClass-"CartListItem" 
AlternatingItemStyle-CssClass="CartListItemAlt" 
DataKeyField="Quantity" AutoGenerateColumns="False"> 
<FooterStyle CssClass="CartListFooter"></FooterStyle> 
<AlternatingItemStyle CssClass="CartListItemAlt"> 
</AlternatingItemStyle> 
<ItemStyle CssClass="CartListItem"></ItemStyle> 
<HeaderStyle CssClass="CartListHead"></HeaderStyle> 
<Columns> 
«asp:TemplateColumn HeaderText=" 图 书 编号 "> 
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<ItemTemplate> 
<asp:Label id="ProductID" runat="server" 
Text='<%S# DataBinder.Eval ( 
Container.DataItem, "BookID") %>' /> 
</ItemTemplate> 
</asp:TemplateColumn> 


<asp:BoundColumn DataField="BookName" 
HeaderText-"[ÉE 54% #k"></asp:BoundColumn> 
<asp:BoundColumn DataField="BookAuthor" 
HeaderText=" 作 者 "></asp:BoundColumn> 
«asp:TemplateColumn HeaderText=" 数 量 "> 
<ItemTemplate> 
<asp:TextBox id="Quantity" runat="server" Columns="4" 
MaxLength="3" Text='<%# DataBinder.Eval( 


Container.DataItem, "Quantity") %>' width="40px" 


rae 
</ItemTemplate> 
</asp:TemplateColumn> 
<asp:BoundColumn DataField-"BookCost" HeaderText=" 单 价 " 
DataFormatString="{0:c}"></asp:BoundColumn> 
«asp:BoundColumn DataField-"ExtendedAmount" HeaderText-"/ 
a 


DataFormatString="{0:c}"></asp:BoundColumn> 
«asp:TemplateColumn HeaderText=" 移 除 "> 


width="350"> 
<SPAN class="NormalBold">Mt}: </SPAN> 
<asp:Label class="NormalBold" id="1b1Total" 


<ItemTemplate> 
Center 
<asp:CheckBox id="Remove" runat="server" /> 第 
«/center» o 
</ItemTemplate> 章 
</asp:TemplateColumn> 
</Columns> 在 
</asp:DataGrid><IMG height="1" src-"Images/1xl.gif" 线 
书 
i 
E 


runat-"server" 


= 
a 


EnableViewState="false"></asp: Label><BR> 


<BR> 
<IMG height="1" src-"Images/1xl.gif" width="60"> 
<asp:imagebutton id="UpdateBtn" runat="server" 
ImageURL-"images/update cart.gif"»«/asp:imagebutton» 
<IMG height="1" src-"Images/1xl.gif" width="15"> 
<asp:imagebutton id="CheckoutBtn" runat="server" 


ImageURL="images/final_checkout.gif"></asp:imagebutton><BR> 
</TD> 
</TR> 
</TABLE> 
</asp:panel> 
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(3) 按 F7 BEREA ShoppingCart.aspx.vb 文件 ， 引 入 DataAccess 命名 空间 。 


(4) 修改 Page_Load 事件 代码 如 下 : 
Private Sub Page Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load 
' 当 页 面 是 第 一 次 加 载 时 则 读 取 数据 库 中 的 信息 并 显示 
' 也 就 是 当 被 PostBack 的 时 候 并 不 执行 此 操作 
If Page.IsPostBack = False Then 
PopulateShoppingCartList() 
End If 
End Sub 
(5) 添加 自 定 义 方 法 PopulateShoppingCartList 如 下 : 
Sub PopulateShoppingCartList () 
:新 建 购物 车 的 数据 访问 实例 
Dim cart As New ShoppingCartDB 
' 新 建 获取 购物 车 ID 的 实例 
Dim getCartID As New ShoppingCartID 
， 获取 购物 车 ID 
Dim cartID As [String] = getCartID.GetShoppingCartId() 


:如果 购物 车 中 无 内 容 ， 则 不 显示 面板 并 提示 信息 
If cart.GetItemCount (cartID) = 0 Then 
DetailsPanel.Visible = False 


MyError.Text = "您 的 购物 车 内 无 商品 " 


Else 


， 将 数据 库 中 的 信息 绑 定 到 DataList 以 显示 信息 
MyList.DataSource = cart.GetItems (cartID) 
MyList.DataBind() 


"更 新 总 价 信息 


5 开发 从 入 门 到 精通 


= 


oa Lede c [eirca] .weramee (Ose, must ee uence al 


End If 
End Sub 'PopulateShoppingCartList 


C6) ZA f 48 ES PIA CELA DS, OR As Ck BLL XL 


件 来 注册 该 事件 ): 
Private Sub UpdateBtn_Click (=! ) Handles UpdateBtn.Click 
' 更 新 购物 车 信息 到 数据 库 
UpdateShoppingCartDatabase() 


PopulateShoppingCartList () 
End Sub 


Private Sub CheckoutBtn Click("- ) Handles CheckoutBtn.Click 
， 首先 必须 更 新 购物 车 
UpdateShoppingCartDatabase() 
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:如 果 购 物 车 不 室 ， 则 提交 给 Checkout.aspx 处 理 
Dim cart As New ShoppingCartDB 


， 获取 购物 车 ID 
Dim cartId As [String] = New ShoppingCartID().GetShoppingCartId() 


' If the cart isn't empty, navigate to checkout page 
If cart.GetItemCount(cartId) <> 0 Then 
Response.Redirect ("Checkout.aspx") 
Else 
MyError.Text = "购物 车 为 空 " 
End If 
End Sub 
(7) 添加 自 定义 方法 UpdateShoppingCartDatabase 代码 如 下 : 
Private Sub UpdateShoppingCartDatabase () 


"获取 购物 车 编号 
Dim shopCartID As New ShoppingCartID 
Dim cartID As [String] = shopCartID.GetShoppingCartId() 


Dim cartDB As New ShoppingCartDB 


' 依次 更 新 DataList 中 的 信息 
Dim i As Integer 
For i= 0 To MyList.Items.Count - 1 


， 获得 对 应 组 件 的 引用 


Dim quantityTxt As TextBox = 


CType(MyList.Items(i).FindControl("Quantity"), TextBox) 
Dim remove As CheckBox - 第 
CType(MyList.Items(i).FindControl("Remove"), CheckBox) ON 
' 为 了 防止 用 户 输入 有 错 ， 这 里 使 用 异常 处 理 ES 

， 主要 是 看 用 户 输入 的 数量 是 否 为 整数 ， 如 果 不 是 整数 就 提示 错误 

Dim quantity As Integer 在 
Try Be 
quantity = Int32.Parse (quantityTxt.Text) E 
' 当 数 量 被 修改 或 者 删除 被 确认 时 执行 如 下 操作 a 
If quantity <> CInt(MyList.DataKeys(i)) Or remove.Checked = True 例 


Then 


Dim lblProductID As Label = 
CType(MyList.Items(i).FindControl("ProductID"), Label) 


If quantity = 0 Or remove.Checked = True Then 
cartDB.Removeltem(cartID, Int32.Parse(lblProductID.Text)) 
Else 
cartDB.UpdateItem( 
cartID, Int32.Parse(lblProductID.Text), quantity) 
End If 
End If 


Catch ex As Exception 
MyError.Text = "您 的 一 个 或 多 个 输入 不 正确 " 
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Next i 


End Sub 'UpdateShoppingCartDatabase 


(8) 在 DataAccess 项 目 中 的 ShoppingCartDB 文件 中 添加 自 定义 方法 Getltems: 
根据 购物 车 ID 获取 购物 车 信息 
«param name="cartID"> 购 物 车 ID«/param» 

<returns>DataReader: 购物 车 具体 信息 </returns> 


TT 


Public Function GetItems (ByVal cartID As String) As SqlDataReader 


' 新 建 Connection All Command 实例 
Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 
Dim myCommand As New SqlCommand("ShoppingCartList", myConnection) 
， 指定 命令 为 存储 过 程 
myCommand.CommandType = CommandType.StoredProcedure 
， 添加 参数 购物 车 编号 到 存储 过 程 
Dim parameterCartID As New SqlParameter( 
"QCartID", SqlDbType.NVarChar, 50) 
parameterCartID.Value = cartID 
myCommand.Parameters.Add(parameterCartID) 
， 打 开 连 接 ， 执 行 操作 
myConnection. Open () 
Dim result As SqlDataReader = 
myCommand. Execut eReader (CommandBehavior.CloseConnection) 
' 返回 数据 读 取 器 


Return result 


End Function 'GetItems 


(9) 在 数据 库 中 添加 ShoppingCartList 存储 过 程 : 


CREATE Procedure ShoppingCartList 


( 


@CartID nvarchar(50) 


SELECT 
Book.BookID, 
Book.BookName, 
Book.BookAuthor, 
ShoppingCart.Quantity, 
Book.BookCost, 
Cast((Book.BookCost * ShoppingCart.Quantity) as money) as ExtendedAmount 


FROM 


Book, 
ShoppingCart 


WHERE 


Book.BookID = ShoppingCart.BookID 
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AND 
ShoppingCart.CartID = @CartID 


ORDER BY 


GO 


CR 


Book.BookName, 
Book.BookAuthor 


(10) Æ DataAccess 项 目 中 的 ShoppingCartDB 文件 中 添加 自 定义 方法 GetTotal: 
， 获取 购物 车 中 图 书 的 总 价 


' «param name="cartID"> 购 物 车 编号 </param> 
' <returns> 总 价 </returns> 
Public Function GetTotal(ByVal cartID As String) As Decimal 


| 


' JÆ Connection All Command X] 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 

Dim myCommand As New SqlCommand("ShoppingCartTotal", myConnection) 


' 指定 命令 类 型 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 
， 添加 参数 到 存储 过 程 

Dim parameterCartID As New SqlParameter ( 


"@CartID", SqlDbType.NVarChar, 50) 
parameterCartID.Value = cartID 


myCommand.Parameters.Add(parameterCartID) 


"添加 输出 总 价 的 参数 到 存储 过 程 

Dim parameterTotalCost As New SqlParameter ( 
"@TotalCost", SqlDbType.Money, 8) 

parameterTotalCost.Direction - ParameterDirection.Output 


myCommand.Parameters.Add(parameterTotalCost) 


， 打开 连接 ， 执 行 操作 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 


' 返回 结果 

If parameterTotalCost.Value.ToString() <> "" Then 
Return CDec(parameterTotalCost.Value) 

Else 
Return 0 

End If 


End Function 'GetTotal 
C11) 在 数据 库 中 添加 ShoppingCartTotal 存储 过 程 : 


EATE Procedure ShoppingCartTotal 


@CartID nvarchar (50), 
@TotalCost money OUTPUT 
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SELECT 
@TotalCost = SUM(Book.BookCost * ShoppingCart.Quantity) 


FROM 
ShoppingCart, 
Book 


WHERE 
ShoppingCart.CartID = @CartID 
AND 
Book.BookID = ShoppingCart.BookID 
GO 


(12) fF DataAccess 项 目的 ShoppingCartDB 文件 中 添加 自 定义 方法 GetItemCount: 
， 获取 购物 车 图 书 总 数量 


' <param name="cartID"></param> 


Li 


' <returns></returns> 
Public Function GetItemCount (ByVal cartID As String) As Integer 


' JÆ Connection Fill Command 对 象 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 

Dim myCommand As New SqlCommand ("ShoppingCartItemCount", myConnection) 


， 指定 命令 类 型 为 存储 过 程 


myCommand.CommandType = CommandType.StoredProcedure 


Dim parameterCartID As New SqlParameter( 
"QCartID", SqlDbType.NVarChar, 50) 

parameterCartID.Value = cartID 

myCommand.Parameters.Add(parameterCartID) 


， 添加 输出 参数 

Dim parameterItemCount As New SqlParameter ( 
"@TtemCount", SqlDbType.Int, 4) 

' 指定 参数 类 型 为 输出 参数 

parameterItemCount.Direction = ParameterDirection.Output 

myCommand.Parameters.Add(parameterlItemCount) 


， 打开 连接 并 执行 操作 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 


， 通过 存储 过 程 的 输出 参数 来 返回 购物 车 总 图 书 量 
Return CInt (parameterItemCount.Value) 
End Function 'GetItemCount 


(13) 在 数据 库 中 添加 存储 过 程 ShoppingCartItemCount: 
CREATE Procedure ShoppingCartItemCount 


@CartID nvarchar (50), 
@ItemCount int OUTPUT ”-- 参 数 为 输出 参数 


SELECT 


@ItemCount = COUNT (BookID) 


FROM 
ShoppingCart 


WHERE 
CartID = @CartID 


GO 


(14) 在 DataAccess 项 目的 ShoppingCartDB 文件 中 添加 自 定义 方法 Updateltem: 
， 更 新 购物 车 中 图 书信 息 
' «param name="cartID"> 购 物 车 编号 </param> 
' «param name="productID"> 图 ] 


书 编号 </param> 
' «param name="quantity"> 图 书 数量 </param> 
Public Sub UpdateItem (ByVal cartID As String, 
ByVal productID As Integer, ByVal quantity As Integer) 


， 如 果 输 入 数量 小 于 o 则 抛 出 异常 
If quantity < 0 Then 


Throw New Exception("Quantity cannot be a negative number") 
End If 


' 新 建 Connection l Command 实例 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 

Dim myCommand As New SqlCommand("ShoppingCartUpdate", myConnection) 


， 指定 操作 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 

， 添加 参数 给 存储 过 程 

Dim parameterProductID As New SqlParameter ( 
"QProductID", SqlDbType.Int, 4) 

parameterProductID.Value = productID 

myCommand.Parameters.Add(parameterProductID) 


Dim parameterCartID As New SqlParameter( 
"QCartID", SqlDbType.NVarChar, 50) 

parameterCartID.Value = cartID 

myCommand.Parameters.Add(parameterCartID) 


Dim parameterQuantity As New SqlParameter ( 
"@Quantity", SqlDbType.Int, 4) 

parameterQuantity.Value = quantity 

myCommand.Parameters.Add(parameterQuantity) 


， 打开 连接 ， 执 行 操作 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 
End Sub 'Updateltem 


C15) 在 数据 库 中 添加 存储 过 程 ShoppingCartUpdate: 
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CREATE Procedure ShoppingCartUpdate 


( 


= 


@CartID nvarchar (50), 
@ProductID int, 
@Quantity int 


UPDATE ShoppingCart 


SET 
Quantity = @Quantity 


WHERE 
CartID = @CartID 
AND 
BookID = @ProductID 
GO 


(16) 在 DataAccess 项 目的 ShoppingCartDB 文件 中 添加 自 定 义 方法 Removeltem: 
， 删除 购物 车 中 的 图 书 
' «param name="cartID"> 购 物 车 编号 </param> 
' «param name-"bookID"» [E545 «/param» 
Public Sub Removeltem(ByVal cartID As String, ByVal bookID As Integer) 


' Ë Connection All Command 实例 
Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 
Dim myCommand As New SglCommand("ShoppingCartRemoveItem", 
myConnection) 


， 指定 操作 类 型 为 存储 过 程 

myCommand.CommandType = CommandType.StoredProcedure 

， 添加 参数 给 存储 过 程 

Dim parameterProductID As New SqlParameter ( 
"QProductID", SqlDbType.Int, 4) 


parameterProductID.Value = bookID 
myCommand.Parameters.Add(parameterProductID) 


Dim parameterCartID As New SqlParameter ( 
"QCartID", SqlDbType.NVarChar, 50) 

parameterCartID.Value = cartID 

myCommand.Parameters.Add(parameterCartID) 


， 打开 连接 ， 执 行 操作 


myConnection.Open () 


myCommand.ExecuteNonQuery () 
myConnection.Close() 
End Sub 'RemovelItem 


C17) 在 数据 库 中 添加 存储 过 程 ShoppingCartRemoveltem: 
CREATE Procedure ShoppingCartRemoveItem 
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@CartID nvarchar(50), 
@ProductID int 


) 
AS 


DELETE FROM ShoppingCart 


WHERE 
CartID = @CartID 
AND 
BookID = @ProductID 
GO 


(18) 至 此 购物 车 信息 列表 ShoppingCart.aspx 设计 完毕 ， 可 以 测试 运行 效果 。 
页 面 ShoppingCart.aspx 首次 加 载 时 , 将 自动 执行 PopulateShoppingCartList 方法 以 显 
示 购 物 车 中 的 信息 。PopulateShoppingCartList 方法 通过 调用 ShoppingCart 的 GetItems 77 
法 获取 购物 车 中 所 有 的 书籍 信息 ， 然 后 将 得 到 的 书籍 阅读 器 绑 定 到 DataGrid 控件 : 
MyList.DataSource = cart.GetItems (cartID) 
MyList.DataBind () 


ShoppingCart 的 GetItems 方法 则 依据 购物 车 编号 来 获取 数据 库 中 对 应 购物 车 的 信 
息 ， 该 方法 执行 存储 过 程 ShoppingCartList， 将 结果 保存 在 数据 阅读 器 中 并 返回 。 
另外 该 方法 还 调用 ShoppingCart 的 GetTotal 方法 来 获取 购物 车 中 所 有 书籍 的 总 价 ， 
然后 显示 在 Label 控件 上 : 
Adobe EdL.uewE = [[Sieieline)|| en ( (Ose) V. essi Me ea 
ShoppingCart 的 GetTotal 方法 获取 购物 车 中 所 有 图 书 的 总 价 ， 图 书 总 价 是 通过 存储 


过 程 ShoppingCartTotal 来 计算 的 ， 利 用 到 了 求 和 的 SQL 关键 字 sum: 第 
SELECT e 
@TotalCost = SUM(Book.BookCost * ShoppingCart.Quantity) 章 
在 ShoppingCart.aspx 页 面 中 ， 用 户 可 以 修改 购物 车 的 信息 ， 然 后 单 击 更 新 购物 车 按 

钮 来 更 新 购物 车 中 的 信息 。 购物 车 信息 的 更 新 由 自 定 义 方法 UpdateShoppingCartDatabase 

实现 。 该 方法 首先 遍历 DataGrid 中 的 项 ， 检 碍 每 一 项 是 否 需 要 更 新 或 者 删除 ， 需 要 更 新 书 

则 调用 ShoppingCart 的 Updateltem 方法 ， 需 要 删除 则 调用 ShoppingCart 的 DeleteItem 77 店 

法 ， 由 这 两 个 方法 来 实现 对 数据 库 的 操作 : 实 

， 依 次 更 新 DataList 中 的 信息 例 


Dim i As Integer 
For i= 0 To MyList.Items.Count - 1 


， 获得 对 应 组 件 的 引用 

Dim quantityTxt As TextBox = 
CType(MyList.Items(i).FindControl("Quantity"), TextBox) 

Dim remove As CheckBox - 
CType(MyList.Items(i).FindControl("Remove"), CheckBox) 


' 为 了 防止 用 户 输入 有 错 ， 这 里 使 用 异常 处 理 
， 主要 是 看 用 户 输入 的 数量 是 否 为 整数 ， 如 果 不 是 整数 就 提示 错误 
Dim quantity As Integer 


amey 


quantity = Int32.Parse(quantityTxt.Text) 
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' 当 数量 被 修改 或 者 删除 被 确认 时 执行 如 下 操作 


If quantity <> CInt(MyList.DataKeys(i)) Or remove.Checked = True 


Then 


Dim lblProductID As Label - 
CType(MyList.Items(i).FindControl("ProductID"), Label) 


If quantity = 0 Or remove.Checked = True Then 
cartDB.RemoveIltem(cartID, Int32.Parse(lblProductID.Text)) 


Else 
cartDB.UpdateItem(cartID, 
Int32.Parse(lblProductID.Text), quantity) 
End If 
End If 


Catch ex As Exception 
MyError.Text = "您 的 一 个 或 多 个 输入 不 正确 " 
End Try 
Next i 
当 用 户 修改 了 购物 车 中 的 信息 以 后 可 以 直接 提交 订单 。 在 按钮 提交 订单 的 事件 处 理 
程序 中 ， 首 先 调用 方法 UpdateShoppingCartDatabase 来 更 新 购物 车 信息 ， 然 后 重 定向 到 

Checkout.aspx 页 面 ， 将 控制 权 递 交 给 Checkout.aspx 文件 。 
Checkout.aspx 文件 负责 处 理 用 户 的 订单 。 


6.9 订单 处 理 


] 户 确定 了 购物 车 中 的 信息 以 后 可 以 提交 订单 给 Checkout.aspx 文件 。 Checkout.aspx 
文件 依据 购物 车 中 的 图 书信 息 构建 订单 信息 并 显示 以 供用 户 核查 。 用 户 核查 完毕 以 后 可 
以 提交 付款 。 至 此 订单 处 理 完毕 。 

Checkout.aspx 文件 加 载 时 通过 ShoppingCartDB 的 GetItems 方法 获取 购物 车 中 的 所 


EQ 


有 图 书信 息 并 显示 到 DataGrid 控件 ， 同 时 还 调用 ShoppingCartDB 的 GetTotal 方法 以 显 
示 图 书 的 总 价 信息 。 当 用 户 单 击 提 交 按 钮 时 将 调用 OrderDB 的 PlaceOrder 7737; . OrderDB 


的 PlaceOrder 方法 负责 将 购物 车 中 的 图 书信 息 更 新 到 订单 表 Orders 中 。OrderDB 的 

PlaceOrder 方法 代码 如 下 : 

添加 订单 信息 

«param name="customerID"> 客 户 编 号 </param> 

«param name="cartID"> 购 物 车 编号 </param> 

<returns> 订 单 编号 </returns> 

Public Function PlaceOrder(ByVal customerID As String, 
ByVal cartID As String) As Integer 


:新建 Connection All Command 对 象 

Dim myConnection As New SqlConnection ( 
ConfigurationSettings.AppSettings ("ConnectionString")) 

Dim myCommand As New SqlCommand ("OrdersAdd", myConnection) 


， 指定 操作 类 型 为 存储 过 程 
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myCommand.CommandType = CommandType.StoredProcedure 


' 添加 参数 

Dim parameterCustomerID As New SqlParameter( 
"QCustomerID", SqlDbType.Int, 4) 

parameterCustomerID.Value - Int32.Parse(customerID) 

myCommand.Parameters.Add(parameterCustomerID) 


Dim parameterCartID As New SqlParameter ( 
"QCartID", SqlDbType.NVarChar, 50) 
parameterCartID.Value = cartID 


myCommand.Parameters.Add(parameterCartID) 


Dim parameterShipDate As New SqlParameter ( 
"@ShipDate", SqlDbType.DateTime, 8) 

parameterShipDate.Value = CalculateShippingDate() 

myCommand.Parameters.Add(parameterShipDate) 


Dim parameterOrderDate As New SqlParameter ( 
"@OrderDate", SqlDbType.DateTime, 8) 

parameterOrderDate.Value = DateTime.Now 

myCommand.Parameters.Add(parameterOrderDate) 


"添加 订单 编号 

Dim parameterOrderID As New SqlParameter("GOrderID", SqlDbType.Int, 4) 
parameterOrderID.Direction = ParameterDirection.Output 
myCommand.Parameters.Add(parameterOrderID) 


， 打开 连接 执行 操作 


myConnection.Open() 


myCommand.ExecuteNonQuery () 
myConnection.Close() 


' 返回 订单 编号 
Return CInt (parameterOrderID.Value) 


End Function 'PlaceOrder 


Aes 


该 方法 执行 数据 库 中 的 OrdersAdd 存储 过 程 ， 该 存储 过 程 实现 将 购物 


D 


f 到 订单 表 Orders Fo OrdersAdd 存储 过 程 代 码 如 下 : 


CREA 
( 


E Procedure OrdersAdd 


@CustomerID int, 

@CartID nvarchar (50), 
@OrderDate datetime, 
@ShipDate datetime, 
QOrderID int OUTPUT 


) 
AS 


BEGIN 


TRAN AddOrder 


/* Create the Order header */ 
INSERT INTO Orders 
( 
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CustomerID, 
OrderDate, 
ShipDate 


= 


) 
VALUES 


( 


@CustomerID, 
@OrderDate, 
@ShipDate 


SELECT 
@OrderID = @@Identity 


/* Copy items from given shopping cart to OrdersDetail table for given OrderID*/ 
INSERT INTO OrderDetails 
( 

OrderID, 

ProductID, 

Quantity, 

UnitCost 


SELECT 
@OrderID, 
ShoppingCart.BookID, 
Quantity, 
Book.BookCost 


FROM 
ShoppingCart 
INNER JOIN Book ON ShoppingCart.BookID = Book.BookID 


WHERE 
CartID = @CartID 


/* Removal of items from user's shopping cart will happen on the business 
layer*/ 
EXEC ShoppingCartEmpty @CartID 


COMMIT TRAN AddOrder 
GO 


需要 注意 的 是 该 存储 过 程 调用 了 另外 一 个 存储 过 程 ShoppingCartEmpty， 存 储 过 程 
ShoppingCartEmpty 负责 将 购物 车 信息 清空 , 因为 一 旦 购物 车 中 的 信息 提交 为 订单 以 后 就 
不 再 需要 该 购物 车 了 ， 因 此 应 该 立即 清空 该 购物 车 。 


6.10 在 线 书店 的 Web 服 务 


在 实际 中 ， 可 能 有 些 顾客 希望 能 够 通过 基于 桌面 的 应 用 程序 来 查看 自己 的 订单 列表 
言 息 以 及 每 个 订单 的 详细 信息 。 为 了 满足 此 项 要 求 ， 编 写 两 个 Web 服务 ， 并 编写 一 个 
Windows 应 用 程序 来 调用 这 两 个 Web 服务 。 


[Lle.10.1 创建 Web 服 务 


(1) 启动 Visual Studio. NET, 1] 7f 8/££ If] BookStore 解决 方案 。 
(2) 单 击 右键 ， 依 次 选择 “添加 新 项 ”\“Web 服务 ”命令 。 


(0 在 弹出 的 对 话 框 中 输入 文件 名 为 Bookstore.asmx 后 单 击 “ 添 加 ”按钮 。 
(4) 在 Bookstore. vb 文件 中 首先 添加 如 下 命名 空间 : 
Imports System.Web.Services 


Imports System.Data.SqlClient 
Imports System.Configuration 


并 声明 页 面 级 变量 customerID: 


Dim customerID As String 


(5) 在 Bookstore.asmx.vb 文件 中 首先 添加 如 下 两 个 Web 服务 方法 : 


T 


«WebMethod (Description:=" 获 取 用 户 的 订单 列表 "， EnableSession:=False)> _ 
Public Function GetUserOrder (ByVal email As String, 
ByVal password As String) As DataSet 


' 首 先 验 证 登录 信息 ， 如 果 登 录 不 成 功 则 返回 null 
Dim customer As New CustomerDB 


customerID = customer.Login(email, password) 
If customerID Is Nothing Then 
Return Nothing 
End If 
' 如 有 果 通 过 登录 则 执行 如 下 操作 
' 用 于 保存 订单 列表 的 Dataset 


Dim result As New DataSet 


' 新 建 Connection WK 


Dim myConnection As New SqlConnection ( 


ConfigurationSettings.AppSettings ("ConnectionString")) 


' 新 建 Command XJ 
Dim mySelectCommand As New SqlCommand("OrdersList", myConnection) 
' 指定 为 存储 过 程 
mySelectCommand.CommandType = CommandType.StoredProcedure 
"添加 参数 
Dim parameterCustomerid As New SqlParameter ( 
"QCustomerID", SqlDbType.Int, 4) 
parameterCustomerid.Value = Int32.Parse(customerID) 
mySelectCommand.Parameters.Add(parameterCustomerid) 


' JÆ DataAdapter 并 指定 其 Select Command 
Dim myAdapter As New SqlDataAdapter 
myAdapter.SelectCommand = mySelectCommand 


"执行 操作 ， 获 取 数据 集 
myAdapter.Fill(result, "order") 
"返回 结果 
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Return result 
End Function 'GetUserOrder 


' 获 取 指 定 ID 的 订单 详细 信息 

"<param name="orderID"> 订 单 编写 </param> 

"<param name="customerID"> 用 户 编号 </param> 

'<returns> 订 单 详细 信息 </returns> 

<WebMethod(Description:=" 获取 指定 编号 的 订单 详 
EnableSession:=False)> _ 
Public Function GetOrderDetail(ByVal orderID As Integer, 

ByVal email As String, ByVal password As String) As OrderDetail 
' 首 先 验 证 登录 信息 ， 如 果 登 录 不 成 功 则 返回 null 


Dim customer As New CustomerDB 


T 


a f B ", 


customerID = customer.Login(email, password) 
If customerID Is Nothing Then 
Return Nothing 
End If 
' 登 录 成 功 则 读 取 指定 编号 的 信息 
Dim order As New OrdersDB 
Dim orderDetail As OrderDetail = 
order.GetOrderDetails(orderID, customerID) 
Return orderDetail 
End Function 'GetOrderDetail 


(6) 编译 整个 工程 ， 然 后 浏览 该 Web 服务 ， 可 以 看 到 如 图 6-16 所 示 的 服务 列表 
界面 。 


@B Bookstore Web BE - Windows jtecnet Dxplcrwr x or 
Tum wiockatoce sura EIE RES p~ 

CJt td - ~ 

kem deu ve a 

dé Bookstore Web BE h-.0- =- neme RAs > IRO-9- 


| Bookstore UAE 


HT. NOCH ARMA 


nie eens 


© GetuverOnder i 
LOL TD 


dt, Web Bg IW. http:/ /tempuriorg/ PARUS KLM 
SRW: 会 开 XML Web services 2. WHRMUS KTA- 


erecn IE — 1-0 RI ULNEPARUL ILES EE) Web LAME HA + Mtps//emeuvnorg/ FAFA ARI XML 
"n x services GERI Re HE 


oet IIO RITE RED « EUER 200. wwb services d RUZ IA 


ace MONT d i MMF ER XML Web services 方 


[MebService (itamespaces*nctp://microwots .con/webservices/*)} 
public class MyMebService ( 

Hx" 
) 


wusl Bore 
| 4WebService (Namespace :u*hztp://microsoft.com/webservices/")» Public Class MyWebService 
' ER 


End Class 


"- @ Internet | een: wm & * kiom e 
[Ge 一 一 一 = 275: nc e 


图 6-16 ”服务 列表 
单 击 GetUserOrder 链接 ， 出 现 如 图 6-17 所 示 的 界面 。 
输入 了 个 人 信息 以 后 单 击 “调用 ”按钮 ， 即 可 得 到 基于 XML 的 调用 结果 。 读 者 可 
以 自行 测试 另外 一 个 Web 服务 方法 GetOrderDetail。 
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EB Bookstore Web BI - Windows Internet Explorer 1 Eme] 
S E Arere E SSO gaz P~- 


d 6m de ve EY 
É vockstore Web BM h-H- ^ - Pp) e£5- IAO- 6- 


Bookstore 


iji. SRA 


GetUserOrder 
BI RST PR | 
Wit 

Tim HTTP POST hostem. wr "m" ie 

en L| | 


SOAP 1.1 | 


以 下 是 SOAP 1.2 iffa Me RTA ERN MOSS (e 


POST /BcoksStore/Bookstore.asmx MITP/1.1 | 
Most: localhost 

Content-Type: text/xml: charseteutf-s 

Content-Length: length 

SOAPAction: "http://tempura .org/GetUnerOrder” 


<?xml versione"i.0* encodinge*utf-8*?» 
«sospiknvelope xmins:xaie"http://www. v3. 019/2001/XMLSchena-instance" xmlns:xsde"http://wvw.w3.org/2001/XMLSchen 
<nonp:Body> 
<GetUnerOrder xninse"http://tempuri.org/*» 
4emailsatringe/emails 


| <pasmvord>stringe/panevord> 

€ : : 

bead @ internet | SER: US à * ^10 - 
人 


图 6-17 调用 GetUserOrder Web 服务 的 界面 

对 于 GetUserOrder 方法 , 其 运行 原理 是 依据 用 户 输入 的 邮箱 和 密码 信息 来 读 取 数据 

库 的 数据 。 首 先 要 执行 的 是 对 用 户 的 登录 信息 进行 检查 ， 该 过 程 直接 调用 数据 访问 层 的 
方法 : 


首先 验证 登录 信息 ， 如 果 登 录 不 成 功 则 返回 null 


Dim customer As New CustomerDB () 


customerID = customer.Login(email, password) 
If customerID Is Nothing Then 
Return Nothing 
End If 
当 用 户 通过 登录 以 后 则 依据 y 的 编号 customerID 来 读 取 数 据 库 中 对 应 的 订单 信 
息 ， 将 信息 保存 到 DataSet 中 并 将 其 返回 : 
' 用 于 保存 订单 列表 的 Dataset 


Dim result As New DataSet() 


' 新 建 Connection 对 象 
Dim myConnection As New SqlConnection( 
ConfigurationSettings.AppSettings ("ConnectionString")) 


新 建 Command WE 

Dim mySelectCommand As New SqlCommand("OrdersList", myConnection) 
"指定 为 存储 过 程 

mySelectCommand.CommandType = CommandType.StoredProcedure 

:添加 参数 

Dim parameterCustomerid As New SqlParameter ("@CustomerID", SqlDbType.Int, 4) 
parameterCustomerid.Value = Int32.Parse(customerID) 


THEY HoW 
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mySelectCommand.Parameters .Add (parameterCustomerid) 


' 新 建 DataAdapter 并 指定 其 SelectCommand 
Dim myAdapter As New SqlDataAdapter () 


myAdapter.SelectCommand = mySelectCommand 
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' 执行 操 作 ， 获 取 数 据 集 
myAdapter.Fill(result, "order") 
' 返 回 结果 
Return result 
而 对 于 GetOrderDetail 方法 ， 首 先 需 要 注意 它 的 返回 类 型 为 OrderDetail 实体 类 ， 该 
实体 类 是 在 DataAccess 中 定义 的 。 该 方法 接受 三 个 参数 ， 依 次 为 订单 号 、 用 户 邮 箱 和 密 
人 码 。 方 法 体 执行 时 ， 首 先 检 查 用 户 是 否 能 够 通过 验证 ， 通 过 验证 的 用 户 则 可 以 获取 对 于 
订单 号 的 订单 详细 信息 ， 否 则 将 返回 null: 
' 首先 验证 登录 信息 ， 如 果 登 录 不 成 功 则 返回 null 


Dim customer As New CustomerDB () 


customerID = customer.Login(email, password) 
If customerID Is Nothing Then 
Return Nothing 

End If 

另外 需要 注意 的 是 在 本 方法 中 是 调用 了 DataAccess 中 的 OrdersDB 类 的 方法 
GetOrderDetails 来 获取 订单 详细 信息 的 : 

' 登录 成 功 则 读 取 指定 编号 的 信息 

Dim order As New OrdersDB() 


Dim  orderDetail As  OrderDetail =  order.GetOrderDetails (orderID, 
customerID) 


Return orderDetail 


[[le.10.2 使 用 在 线 书店 的 Web 服 务 


本 节 创 建 一 个 Windows 应 用 程序 来 调用 Web 服务 显示 用 户 订 单 信息 。 
(1) 启动 Visual Studio.NET， 打 开 已 创建 的 Bookstore 解决 方案 。 
(2) 添加 一 个 新 的 Windows 应 用 程序 ， 命 名 为 WinOrder。 
(3) 为 WinOrder 项 目 添 加 已 编写 的 Web 服务 ， 并 指定 别名 为 BookstoreService， 
如 图 6-18 所 示 。 


Boo web UN ow — -S 4. me 
ans web MS UR. NS m" ET UM LATS, 
o a 
URLU — regi/ocahorbif16t/lookstore/Bockstore sures a 
{OT UN. 1) viet ES 
Bookstore LIE 


ENTHET- AZERE: WRERRRM- 


fins edes I 


f Web BHM http: /tempurtorg/ MARUSA TM. 
WR 全 天 XML Web services 208, APARUSETA- 


图 6-18 添加 Web 引用 
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(4) 删除 默认 的 Forml 文件 ， 添 加 新 的 Windows 窗 体 frmMain 和 frmOrderDetail, 


E 
m 


&| 6-19 所 示 设 计 frmMain. 


2) 在 线 书店 Web 服 务 测试 IEEE ECB ex") 
输入 信息 : 操作 : 

B 箱 : | 读 取 订单 列表 J 
Som [ 读 取 订单 详细 信息 | 
用 户 订单 列表 : 

可 单 信息 如 下 : 


图 6-19 frmMain 设计 界面 


» 


读者 可 以 直接 按 F7 键 切换 到 代码 视图 ， 输 入 如 下 代码 完成 界面 设置 和 代码 编写 工 


作 : 


Public Class frmMain 
Inherits System.Windows.Forms.Form 


#Region " Windows 窗 体 设计 器 生成 的 代码 " 


Public 


Sub New() 


MyBase.New() 


' 该 调用 是 Windows 窗 体 设计 器 所 必需 的 


InitializeComponent () 


T 


End Sub 


' 窗 体重 写 dispose 以 清理 组 件 列表 


Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 


TE 


fk 9 站 


InitializeComponent () 调用 之 后 添加 任何 初始 化 


disposing Then 


eden 


If Not (components Is Nothing) Then 


= 
& 


components.Dispose() 
End If 


End If 

MyBase.Dispose (disposing) 
End Sub 
"Windows 窗 体 设 计 器 所 必需 的 


Private components As System.ComponentModel.IContainer 


"YER: 


以 下 过 程 是 Windows 窗 体 设计 器 所 必需 的 


' 可 以 使 


]windows 窗 体 设计 器 修改 此 过 程 


' 不 要 使 
Friend 
Friend 
Friend 


代码 编辑 器 修改 它 


WithEvents GroupBoxl As System.Windows.Forms.GroupBox 


WithEvents groupBox4 As System.Windows.Forms.GroupBox 
WithEvents MyGrid As System.Windows.Forms.DataGrid 
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Friend 
Friend 
Friend 
Friend 
Friend 
Friend 
Friend 
Friend 


<System.Diagnostics.DebuggerStepThrough () > 


my 


M 


< 


< 


< 


< 


< 


< 


< 


< 


< 


< 


< 


e 
e 
e 
e 
e 
e 
e. 
e 
e 
e 
e 
e 
e 
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rivate Sub InitializeComponent () 

.GroupBoxl = New System.Windows.Forms.GroupBox 
.groupBox4 = 
.MyGrid = 
.groupBox3 = 
.btnGetDetail = 
.btnGetOrder - 


.txtPassword = 
.txtEmail = 
.labell - 
.Password - 
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groupBox3 As System.Windows.Forms.GroupBox 
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WithEvents 


= 


WithEvents btnGetDetail As System.Windows.Forms.Button 


WithEvents btnGetOrder As System.Windows.Forms.Button 
WithEvents groupBox2 As System.Windows.Forms.GroupBox 
WithEvents txtPassword As System.Windows.Forms.TextBox 
WithEvents txtEmail As System.Windows.Forms.TextBox 


WithEvents labell As System.Windows.Forms.Label 


WithEvents Password As System.Windows.Forms.Label 


New System.Windows.Forms .GroupBox 
New System.Windows.Forms.DataGrid 

New System.Windows.Forms .GroupBox 
New System.Windows.Forms.Button 
New System.Windows.Forms.Button 


groupBox2 = New System.Windows.Forms .GroupBox 
New System.Windows.Forms. TextBox 
New System.Windows.Forms. TextBox 
New System.Windows.Forms. Label 


New System.Windows.Forms. Label 


.GroupBoxl.SuspendLayout () 
.groupBox4.SuspendLayout () 
CType (Me.MyGrid, 


System.ComponentModel.ISupportInitialize).BeginInit () 


Me. 


Me. 


Me. 


Y 


groupBox3.SuspendLayout () 
groupBox2.SuspendLayout () 
SuspendLayout () 


'GroupBox1 


Uu 


.GroupBoxl. 
.GroupBoxl. 
.GroupBoxl. 
.GroupBoxl. 
.GroupBoxl. 
.GroupBoxl 
.GroupBoxl. 


Controls.Add (Me. groupBox4) 
Controls .Add (Me. groupBox3) 
Controls .Add (Me. groupBox2) 
Dock = 
Location = 


System.Windows.Forms.DockStyle.Fill 
New System.Drawing.Point (0, 0) 
-Name = "GroupBox1" 


Size = New System.Drawing.Size(552, 349) 


.GroupBox1 
.GroupBoxl. 


.TabIndex 
TabStop - 


= 0 


False 


'groupBox4 


Uu 


Me. 


Me. 


groupBox4.Anchor - CType((((System.Windows.Forms.AnchorStyles.Top 
Or System.Windows.Forms.AnchorStyles.Bottom) 

Or 

Or 


System.Windows.Forms.AnchorStyles.Left) 


System.Windows.Forms.AnchorStyles.Right), 


System.Windows.Forms.AnchorStyles) 
groupBox4.Controls.Add (Me.MyGrid) 


Me.groupBox4.Location = New System.Drawing.Point (20, 112) 
Me.groupBox4.Name - "groupBox4" 

Me.groupBox4.Size = New System.Drawing.Size(512, 228) 
Me.groupBox4.TabIndex - 9 

Me.groupBox4.TabStop - False 

Me.groupBox4.Text = "用 户 订单 列表 : " 

' 

'MyGrid 

' 

Me.MyGrid.CaptionText = "订单 信息 如 下 : " 
Me.MyGrid.DataMember = "" 

Me.MyGrid.Dock = System.Windows.Forms.DockStyle.Fill 
Me.MyGrid.HeaderForeColor = System.Drawing.SystemColors.ControlText 
Me.MyGrid.Location = New System.Drawing.Point(3, 17) 
Me.MyGrid.Name - "MyGrid" 

Me.MyGrid.ReadOnly = True 

Me.MyGrid.Size = New System.Drawing.Size(506, 208) 
Me.MyGrid.TabIndex - 0 

' 

'groupBox3 


Y 


Me.groupBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top 


Or System.Windows.Forms.AnchorStyles.Left) 
Or System.Windows.Forms.AnchorStyles.Right), 
System.Windows.Forms.AnchorStyles) 


Me.groupBox3.Controls.Add (Me.btnGetDetail) 

Me.groupBox3.Controls.Add (Me.btnGetOrder) 第 
Me.groupBox3.Location = New System.Drawing.Point(292, 8) CN 
Me.groupBox3.Name = "groupBox3" 章 
Me.groupBox3.Size = New System.Drawing.Size(240, 96) 

Me.groupBox3.TabIndex - 8 在 
Me.groupBox3.TabStop = False 线 
Me.groupBox3.Text = "操作 : " d 
; 店 
'btnGetDetail 实 


Uu 


= 
Su 


Me.btnGetDetail.Anchor - 
CType(((System.Windows.Forms.AnchorStyles.Top 


Or System.Windows.Forms.AnchorStyles.Left) 
Or System.Windows.Forms.AnchorStyles.Right), 
System.Windows.Forms.AnchorStyles) 


Me.btnGetDetail.Location - New System.Drawing.Point(16, 64) 
Me.btnGetDetail.Name = "btnGetDetail" 

Me.btnGetDetail.Size = New System.Drawing.Size(208, 24) 
Me.btnGetDetail.TabIndex - 1 


Me.btnGetDetail.Text = " 读 取 订单 详细 信息 " 


'ptnGetOrder 


Uu 


307 


90 1e1deu?) 


ASP.NET 4.0 与 Dreamweaver CS6 2 HEL [o] y; 


5 开发 从 入 门 到 精通 


= 


Me.btnGetOrder.Anchor 
CType(((System.Windows.Forms.AnchorStyles.Top 


Or System.Windows.Forms.AnchorS 
Or System.Windows.Forms.AnchorStyl 


System.Windows.Forms.AnchorStyles) 


.btnGetOrder. 
.btnGetOrder. 
.btnGetOrder. 
.btnGetOrder. 
.btnGetOrder. 


Location = 
"btnGetOrder" 

Size = New System.Drawing.Siz 
TabIndex = 0 

Text = " 读 取 订 单列 表 " 


Name - 


'groupBox2 

Y 

.groupBox2.Controls.Add(Me.txtPassword) 
.groupBox2.Controls.Add (Me.txtEmail) 
(Me.labell) 
.groupBox2.Controls.Add (Me.Password) 


.groupBox2.Controls.Add (M 


.groupBox2.Location - New System.Drawing.P 


.groupBox2.Name = "groupBox2" 
.groupBox2.Size - New System.Drawing.Size( 
TabIndex - 7 
TabStop - False 


Text = "输入 信息 : " 


.groupBox2. 
.groupBox2. 


.groupBox2. 


'txtPassword 


.txtPassword.Location = 
.txtPassword.Name = "txtPassword" 
.txtPassword.Size = New System.Drawing.Siz 
.txtPassword.TabIndex = 3 


Text = "" 


.txtPassword. 


tEmail 


.txtEmail.Location = New System.Drawing.Po 
"txtEmail" 

New System.Drawing.Size (1 
abIndex - 1 

ext = "" 


.txtEmail.Name = 
.txtEmail.Size = 


ene 


le lpnmasl 
'labell 


.labell. 
.labell.Name = 
.labell.Size = New System.Drawing.Size(80, 
.labell.TabIndex = 0 

.labeli.Text = "I 48: " 


Location = New System.Drawing.Poin 
"label1" 


"Password 


New System.Drawing.Point (16, 


New System.Drawing.Point (64, 


tyles.Left) 
es.Right), 


24) 


e(208, 24) 


oint (20, 8) 


248, 96) 


64) 


Sales, 21) 


int (64, 24) 


Siir Ail) 


eS, 32) 


16) 


.Password.Location = New System.Drawing.Point(8, 72) 


Me.Password.Name = "Password" 

Me.Password.Size = New System.Drawing.Size(56, 16) 
Me.Password.TabIndex - 2 

Me.Password.Text = "3% fj. " 

' 

'frmMain 

' 

Me.AutoScaleBaseSize = New System.Drawing. Size(6, 14) 
Me.ClientSize = New System.Drawing. Size(552, 349) 
Me.Controls.Add (Me.GroupBoxl) 

Me.Name = "frmMain" 

Me.Text = "frmMain" 
Me.GroupBoxl.ResumeLayout (False) 
Me.groupBox4.ResumeLayout (False) 


CType (Me.MyGrid, 


System.ComponentModel.ISupportInitialize).EndInit () 


Me. 
Me. 


Me. 


groupBox3.ResumeLayout (False) 
groupBox2.ResumeLayout (False) 
ResumeLayout (False) 


End Sub 


E 


End Region 


Private Sub btnGetOrder Click(ByVal sender As System.Object, 


ByVal e As System.EventArgs) Handles btnGetOrder.Click 
Try 


getUserOrder() 


Catch ex As Exception 


MessageBox.Show (ex.Message) 


End Try 


End Sub 


' 读 取 用 户 所 有 订单 信息 


Private Sub getUserOrder() 


Li 


Else 


Me.txtEmail.Text = "" Then 
MessageBox. Show ("请 输入 用 户 邮 箱 地 址 ! ") 


Me.txtEmail.Focus () 


Return 


ElseIf Me.txtPassword.Text = "" Then 


MessageBox. Show ("请 输入 密码 ! ") 
Me.txtPassword.Focus() 
Return 


Me.Cursor - Cursors.WaitCursor 


Dim orderService As New BookstoreService.Bookstore 
Dim orders As DataSet = 
orderService.GetUserOrder (Me.txtEmail.Text, 
Me.txtPassword.Text) 
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If orders 
Me.Curs 


MessageBox. Show ("错误 ") 


Else 


Me.MyGrid.DataSource = 


Me.Curs 
End LE 


End If 


End Sub 'getUserOrder 


' 获取 指定 DataGriq 选中 行 的 编号 ， 从 0 


<param name="dg">DataGrid</param> 
' <returns> 选 中 行 的 编号 </returns> 
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5 开发 从 入 门 到 精通 


= 


Is Nothing Then 


or = Cursors.Arrow 


orders.Tables (0) 


or = Cursors.Arrow 


始 


Private Function getSelectIndex(ByVal dg As DataGrid) As Integer 


Dim result As Integer - 


cd 


Dim row As Integer 


For row - 


ORES 


dg.VisibleRowCount - 1 


If dg.IsSelected(row) Then 


result = 


row 


Exit For 


End Tf 


Next row 


Return result 


End Function 


'getSelectIndex 


Private Sub getOrderDetail() 


AE E HR T 


户 的 订单 信息 


If Me.MyGrid.DataSource Is Nothing Then 


MessageBox. 
Return 


End If 


' 如 果 订 单 信息 已 经 


Dim row As 


Df row > 


"获取 订单 编号 


Dim orderID 


lame = 


Show ("请 先 加 载 订单 信息 


ie y 


加 载 ， 首 先 取得 选中 行 


getSelectIndex (MyGrid) 


Then 


As Integer = Convert.ToInt32(MyGrid(row, 0)) 


Dim bookstore As New BookstoreService.Bookstore 


， 提 取 订 单 的 


Dim orderTo 


bookstore.GetOrderDetail( 
orderID, 


F 细 信息 


tal As Decimal = 


txtEmail.Text, txtPassword.Text).OrderTotal 


Dim orderDate As 
bookstore. 


orderI 


Dim shipDate As DateTime - 


bookst 
orderI 


DateTime - 
GetOrderDetail( 


De rcistbimcsmwige txtPassword.Text).OrderDate 


ore. 
D, 


GetOrderDetail( 


txtEmail. 


txtPassword.Text).ShipDate 


ext, 


Dim orderItems As DataSet - 
bookstore.GetOrderDetail( 
orderID, txtEmail.Text, txtPassword.Text).OrderItems 


Dim frmDetail As New frmOrderDetail 


frmDetail.InitControls (orderDate, shipDate, orderTotal, 
orderItems) 
frmDetail.ShowDialog() 
Else 
MessageBox. Show (" 请 先 选中 要 加 载 详细 信息 的 的 订单 ") 
End If 


End Sub 'getOrderDetail 


Private Sub btnGetDetail Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnGetDetail.Click 
getOrderDetail() 
End Sub 
End Class 
(5) 按 图 6-20 所 示 界 面 设 计 fmOrderDetail， 然 后 按 F7 HE, 切换 到 代码 编写 页 
添加 System.Data.SqlClient 命名 空间 ， 并 添加 如 下 自 定义 方法 
， 显示 订单 详细 信息 
' «param name="orderDate"> 订 单 时 间 </param> 
' «param name="shipDate"> 处 理 时 间 </param> 
' «param name="orderTotal"> 总 价 </param> 
' «param name="orderItems"> 订 单 详细 信 息 </param> 
Public Sub InitControls (ByVal orderDate As DateTime, 
ByVal shipDate As DateTime, ByVal orderTotal As Decimal, 
ByVal orderItems As DataSet) 
Me.txtOrderDate.Text - orderDate.ToString() 
Me.txtShipDate.Text = shipDate.ToString() 
Me.txtTotal.Text = orderTotal.ToString() 
Me.MyGrid.DataSource = orderItems.Tables (0) 


End Sub 'InitControls 
吗 订单 洋 细 信息 fo) e E 
基本 信息 

订单 添加 时 间 : 


订单 处 理 时 间 : 


zu 


T 


1 g B 


BRESA 


= 
& 


订单 物品 总 价 : 


订单 详细 信息 
订单 详细 信息 


图 6-20 frmOrderDetail 设计 界面 
(6) 在 “解决 方案 资源 管理 器 ”中 选中 WinOrder 项 目 ， 单 击 右键 ， 选 中 “ 设 为 启 
动 项 目 ” 按 Ctrl + F5 键 运行 项 目 ， 可 以 看 到 如 图 6-19 所 示 界 面 。 
(7) 输入 邮箱 和 密码 以 后 ， 单 击 “ 读 取 订 单列 表 ” 按 钮 ， 如 果 输 入 的 信息 正确 ， 


T 
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则 可 以 得 到 该 用 户 所 有 的 订单 信息 列表 ， 如 图 6-21 所 示 。 


(8) 选中 其 中 任何 一 条 订单 信息 ， 然 后 单 击 “ 读 取 订 单 详细 信息 ”按钮 ， 可 以 看 
到 对 于 订单 的 详细 信息 界面 ， 如 图 6-22 所 示 。 


园 订 单 详细 信息 


Ix) 
- 一 基本 信息 
= 200 
EMANE lax! 订单 添加 时 间 : 

SARE: | it: Y ig: [2005-7-22 15:26:51 

3 TRI WRIT MR | hagas 

usmaen: Pew O 
aipe Maaa IERTARE | 
广 订单 详细 信息 
RIP: 


订单 俩 息 知 下 : 
|ÜrderTstal |OrderPate |ShipDate 


|BookWane |BookAuthor |UnitCost [Quantity | Extended 
CHAMBER RE 21.0000 1 
Flash\I RE 12. 0000 
天 使 与 海豚 ”欧阳 克 123. 0000 
天 体 运动 摘 星 子 345. 8000 


104. 2000 22 


21.0000 
12. 0000 
432. 0000 
345. 8000 
64. 0000 


Photoshop 黄 药师 32.0000 


图 6-21 订单 信息 的 界面 图 6-22 订单 详细 信息 


至 此 ，WinOrder 项 目 编写 完毕 。 下 面 来 看 看 该 项 目的 原理 。 
首先 在 该 项 目 中 添加 了 对 Web 服务 BookstoreService 的 引用 ， 当 单 击 frmMain 窗口 
中 的 “ 读 取 订单 列表 ”按钮 被 时 ， 程 序 执行 如 下 代码 : 
INEN 
getUserOrder() 
Catch ex As Exception 


MessageBox.Show (ex.Message) 
End Try 


其 中 getUserOrder 是 自 定 义 的 方法 ， 负 责 读 取 所 有 的 订单 信息 ， 该 方法 首先 判断 用 
户 是 否 输入 了 必要 的 信息 : 
If Me.txtEmail.Text = "" Then 


MessageBox. Show (" 请 输入 用 户 邮 箱 地 址 ! ") 
Me.txtEmail.Focus () 
Return 


ElseIf Me.txtPassword.Text = "" Then 
MessageBox. Show (" 请 输入 密码 ! ") 
Me.txtPassword.Focus() 

Return 
通过 检查 以 后 则 调用 Web 服务 方法 ， 来 获取 用 户 所 有 的 订单 信息 : 


Else 


Me.Cursor = Cursors.WaitCursor 


Dim orderService As New BookstoreService.Bookstore 
Dim orders As DataSet = 


orderService.GetUserOrder (Me.txtEmail.Text, 
Me.txtPassword.Text) 
If orders Is Nothing Then 
Mer Girgor = MISSIS 
MessageBox. Show ("HR") 
Else 
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Me.MyGrid.DataSource - 
Me.Cursor - Cursors.Arrow 
End TE 


End If 


orders.Tables (0) 


TA, WE Web 服务 方法 的 返回 值 不 空 ， 则 表示 


的 DataSet 绑 定 到 MyGrid 控件 。 
加 载 了 用 户 订单 以 后 ， 选 中 任 一 i 
行 如 下 事务 逻辑 ， 获取 
信息 的 frmOrderDetail 窗 体 ， 并 调 
frmOrderDetail 窗 体 中 : 
' 判 断 是 否 加 载 J 


户 的 订单 信息 


户 单 击 的 订单 信息 的 订 自 


了 单 记录 ， 单 击 “ 读 取 订单 详细 信 


j 户 输入 的 信息 有 效 ， 接 着 ; 


If Me.MyGrid.DataSource Is Nothing Then 


MessageBox. Show (" 请 先 加 载 订 单 信息 ! ") 


Return 
End Lf 


' 如 果 订 单 信息 已 经 加 载 ， 首 先 取 得 选中 行 


Dim row As Integer = 


Lf row <> em 


' 获 取 订单 编号 


getSelectIndex (MyGrid) 


和 号， 然后 新 建 
frmOrderDetail 的 InitControls 来 将 信息 显示 到 


和 返回 


县” 按钮 ， 则 执 


人 用 于 显示 订单 详细 


Dim orderID As Integer = Convert.ToInt32(MyGrid(row, 0)) 
Dim bookstore As New BookstoreService.Bookstore 
， 提取 订单 的 详细 信息 
Dim orderTotal As Decimal = 
bookstore.GetOrderDetail( 
orderID, txtEmail.Text, txtPassword.Text).OrderTotal 
Dim orderDate As DateTime - 
bookstore.GetOrderDetail( 
orderID, txtEmail.Text, txtPassword.Text).OrderDate 
Dim shipDate As DateTime - 
bookstore.GetOrderDetail( 
orderID, txtEmail.Text, txtPassword.Text).ShipDate 
Dim orderItems As DataSet = 
bookstore.GetOrderDetail( 
orderID, txtEmail.Text, txtPassword.Text).OrderItems 
Dim frmDetail As New frmOrderDetail 
frmDetail.InitControls (orderDate, shipDate, orderTotal, 
orderItems) 
frmDetail.ShowDialog() 
Else 
MessageBox. Show (" 请 先 选 中 要 加 载 详细 信息 的 的 订单 ") 
End If 
这 样 ， 通 过 对 Web 服务 BookstoreService 的 调用 ， 完 成 了 一 个 基于 Windows 的 桌面 
应 程序 来 显示 上 户 的 订单 信息 。 


该 项 目 文件 保存 在 光盘 source/BookStore/WinOrder 目录 下 。 
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通过 本 节 的 介绍 可 以 看 出 ， 在 .NET 平台 上 使 用 Visual Studio.NET 开发 Web 服务 是 


非常 简单 的 。 um 


服务 返回 数据 。 


E 要 的 是 , 通过 ADO.NET, 只 需要 花费 很 少 的 精力 就 可 以 实现 通过 Web 


6.11 系统 运行 效果 


本 节 给 出 实例 的 完整 运行 过 程 。 
(1) 将 Default.aspx 设置 为 启动 页 ， 启 动 运 行 ， 如 图 6-23 Pra. 


欢迎 来 到 ASP.NET 在 线 书 店 


EGANT I 7 MCT + SORES MAR CSS 
WEXESARALSE. GUAMTA—TET 

ASP NETRE SGROGSRAR SIRVE 
M UREETUUEIUNTI ER BCE. 


图 6-23 ”在 线 书店 运行 首页 


(2) 单 击 左边 的 图 书信 息 分 类 ， 进 入 图 书 分 类 列表 页 面 bookList.aspx， 如 图 6-24 


Wiz. 


| " 
NDF ieee 


JQ xe3deu) 


| 
T 
H 


图 6-24 ”图 书 分 类 显示 页 面 


(3) 单 击 图 书 名 ， 进 入 图 书 具 体 信息 页 面 BookDetails.aspx， 如 图 6-25 所 示 。 
(4) 单 击 Add To Cart 链接 ， 将 图 书 加 入 到 购物 车 。 此 时 系统 将 重 定向 到 购物 车 列 
面 ShoppingCartaspx， 如 图 6-26 所 示 。 


mtp: localhost ‘BookStore /BookDet alls aspx?BookID-1 - Microsoft Internet Explorer nll x) 


Xr wip tv ew IAD tuo 


so - [E ra 


ASE NETBOOKSTORE! 


ISZISEIITULTETII 


C 语 言 程序 设计 


FPP EES. EAE, 一 
XSUMRUWCENDS. —ETIRANCEEDS. —E 
MANETS. TRANCE. LN 
MEREEN. TAMER TOS. LNN 
SMR Nun. SMMC REIN. —E ur 
MRIS. —REDIBAWCENDS. -ENEAN 
FEMS. 


A625 图书 具体 信息 界面 


PIE 


XAD MWO SPV Hea) IXUD Bip 


=| Eee we” 


KSTORE) 


iA 18 Ste 


msms|mssm [ow [em [on ^w [wm] 
CWE Fait jen [ft vizao|vizso| 7 
4 Fasha MES |e [] v i0|v12.00| [7 


Stat mte n | fi ¥12.40/¥12,00) r 


Rit: True 


©) update Your shopping Cort (Y Finat Check Out 


图 6-26 ”购物 车 页 面 


(5) 修改 购物 车 信息 后 单 击 Final Check Out 链接， 系统 将 自动 
这 是 因为 只 有 登录 会 员 才 能 : 


tp locaPest BookStore Tegin. aspe? Returetirl=/BeokStore /Checkout.aspy - Microsalt Internet Explorer Bld 
tHo miko ew taa Tk Poo Lj 
MAD) 。 [I] hep ftocahost iocksrcen loge sp hensii iokoan: hecho aep =] ea um» 


@ ston tn ow 


MESES, BAN GERIT 


© Register 


图 6-27 登录 界面 


E 定 向 到 登录 页 而 ， 


行 提交 购物 车 的 操作 。 登 录 界 面 如 图 6-27 所 示 。 
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(6) 由 于 目前 没有 账户 ， 所 以 先 选择 注册 一 个 ID ， 单 击 Register 链接 ， 打 开 注 册 
页 面 ， 如 图 6-28 所 示 。 


(7) 填写 信息 以 后 单 击 Submit 链接 ， 系 统 将 会 保存 注册 信息 到 数据 库 ， 然 后 浏览 


器 重 定向 到 购物 车 界面 ， 如 网 6-26 所 示 。 再 次 单 击 Final Check Out 链接 ， 将 出 现 订 单 审 
界面 Checkout.aspx， 如 图 6-29 所 示 。 


x 


图 6-28 注册 界面 


SEARCH 


HERRE A 


MUATTAR 


显示 结账 完成 的 界面 ， 如 图 6-30 所 示 。 


90 xe3deu? 


图 6-30” 结 帐 完成 界面 
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(9) 重复 以 上 步骤 ， 再 次 提交 另外 一 份 帐 单 。 然 后 单 击 顶部 的 “账户 ”链接 ， 将 


得 到 图 6-31 所 示 的 账户 交易 记录 页 面 。 


图 6-31 Jk 
(10) 单 击 “详细 信息 ”按钮 ， 可 以 查 


户 交易 记录 


[L1 
ELM E 


图 6-32 iT 


至 此 ， 整 个 系统 运行 结束 。 


单 详细 信息 


看 订单 的 详细 信息 ， 如 图 6-32 所 示 。 


本 章 通 过 在 线 书店 实例 详细 讲解 了 如 何 通 过 ADO.NET 来 访问 数据 库 ， 包 括 对 数据 


库 的 查询 、 添 加 、 修 改 和 删除 ， 以 及 较为 复杂 的 事务 逻辑 的 处 理 。 通 过 本 章 的 学 习 ， 读 
者 应 该 能 够 独立 编写 中 型 的 ASPNET 程序 了 ， 例 如 企业 信息 管理 系统 


业 的 客户 关系 管理 系统 (CRM) 等 。 
需要 注意 的 是 本 章 中 部 分 重复 性 的 功能 


并 没有 在 书 中 重复 讲解 。 因 


(MIS)， 中 小 企 


此 项 目 中 实现 的 


功能 可 能 并 没有 在 书 中 讲解 到 ， 希 望 读 者 对 照 光 盘 中 的 代码 以 及 书 中 所 讲解 的 知识 加 深 


理解 。 
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第 7 章 BBS 系统 实例 


”BBS 的 英文 全 称 是 Bulletin Board System, 翻译 为 中 文 就 是 电子 公告 板 。 ， 


BBS 最 早 是 用 来 公布 股市 价格 等 信息 的 ， 当 时 BBS 连 文件 传输 的 功能 都 没 
有 ， 而 且 只 能 在 苹果 计算 机 上 运行 。 近 些 年 来 ， 由 于 爱好 者 们 的 努力 ，BBS 
的 功能 得 到 了 很 大 的 扩充 。 目 前 ， 通 过 BBS 系统 可 随时 获取 国际 最 新 的 软 
件 及 信息 ， 也 可 以 通过 BBS 系统 和 别人 讨论 计算 机 软件 、 硬 件 、Internet、 
多 媒体 、 程 序 设计 以 及 医学 等 等 各 种 有 趣 的 话题 ， 更 可 以 利用 BBS 系统 来 
刊登 一 些 征 友 、 廉 价 转让 及 公司 产品 等 启事 。 只 要 您 拥有 1 台 能 够 上 网 的 计 
算 机 ， 就 能 够 进入 这 个 超时 代 的 领域 ， 进 而 去 享用 它 无 比 的 威力 ! 

从 前 面 的 实例 可 以 看 出 ， 利 用 Dreamweaver 可 以 很 便捷 地 设计 页 面 布 
局 ， 但 它 不 能 实现 网 页 和 代码 分 离 ， 代 码 看 起 来 比较 混乱 ， 而 且 ASPNET 
的 一 些 功能 在 Dreamweaver 中 实现 比较 复杂 。 所 以 ,我 们 可 以 先 用 Visual Web 
Developer 建立 文件 , 然后 用 Dreamweaver 做 页 面 编 辑 工作 , 再 在 Visual Web 
Developer 中 添加 代码 。 本 章 笔 者 将 用 一 个 简单 的 BBS 系统 为 例 ， 从 系统 开 
发 的 需求 分 析 开 始 ， 到 系统 设计 直至 实现 的 过 程 ， 全 面 介绍 如 何在 Visual 
Web Developer 中 做 一 个 较为 简单 的 BBS 系统 ,让 读者 较 全 面 地 熟悉 如 何 利 


、 用 ASPNET 4 创建 动态 页 面 ， 并 可 以 以 此 BBS 系统 为 基础 添加 读者 想 要 的 “ 


© 系统 总 体 设 计 
© 数据 库 设计 
© 技术 细节 

© 系统 实现 

© 系统 运行 效果 


7.4 系统 总 体 设计 
(07.1.1 项 目 目标 
该 项 目的 目的 是 开发 一 个 中 小 型 的 BBS AR, BBS 系统 的 目标 如 下 : 
1. 用 户 登 录 、 注 销 和 注册 管理 
一 个 BBS 站 点 首先 应 有 的 功能 就 是 能 够 定位 每 个 访问 的 用 户 。 在 网 站 中 几乎 所 有 可 
以 与 用 户 交 互 的 界面 上 ， 都 提供 了 用 户 注 册 、 登 录 接 口 。 用 户 登 录 后 ， 才 可 以 完整 地 查 


看 帖子 、 发 表 文 章 、 回 复 帖子 等 。 


A IMS 


È `I, 
R! 24 FHPUS 


wu 


2. 浏览 、 


登录 后 ， 
章 发 表 自 


记 密 人 码 时 能 够 迅速 地 找 回 密码 ， 还 需要 填 写 密码 提示 问题 页 和 答 


回复 文章 
JK 


记 密 码 时 只 要 凭借 密码 提示 问题 和 答 


案 就 可 以 取 回 密码 。 


兴趣 的 栏目 或 文章 ， 就 可 以 浏览 相关 的 内 容 ， 还 可 以 对 当前 的 文 


直接 单 击 感 


己 的 见解 。 


3. 用 户 、 栏 目 管 理 


管理 员 登 
F1 
n 


4. 网 站 配 


学 录 后 ， 可 以 修改 登录 密码 ， 还 可 以 对 用 户 和 栏目 进行 管理 
账号 ， 增 加 或 删除 栏目 和 子 栏 目 、 对 用 户 


置 管理 


。 比 如 添加 其 他 


— Ars 
TTE RE. 


资料 进 和 


当 开发 者 开 
系统 的 初始 化 配置 应 该 具有 根据 不 同 的 
] 的 版 权 信息 、 


包括 Web 应 


发 的 应 


] 户 时 ， 不 同 的 用 户 会 有 不 同 的 系统 定制 要 求 。 


分 发 到 不 同 的 


营 策 略 是 不 同 的 ， 具 体 琶 


L117. 1.2 


解决 方案 


合 。C/S 通常 适合 于 


上 的 Web 应 


ae 
j， 需 要 的 是 B/S (客户 /浏览 器 


葛 用 方 进行 不 同 配置 的 功能 。 常 见 的 一 些 配置 ， 
与 经 营 者 的 联系 方式 、 网 站 广告 的 定制 。 不 同 用 户 的 具体 经 
方式 、 注 册 条 约 、 交 易 条 球 等 信息 都 是 可 以 定制 的 。 


| 付款 六 


设计 


个 电子 商务 站 点 。 传 统 的 C/S 架构 很 明显 不 适 
例如 管理 信息 系统 。 作 为 面向 Internet 
架构 。B/S 架构 的 客户 端 使 用 的 是 浏览 咒 


这 种 方式 的 客户 端 简单 易学 ， 培 训 成 本 低 。 


根据 上 面 


的 分 析 ， 确 


定 系统 运行 在 微软 的 Window NT 系列 平台 上 ,使 用 IS 信息 服 


务 器 作为 Web 服务 器 ， 


Dfe meh 


的 数据 库 则 使 用 


使 用 


Dreamweaver CS6 设计 页 面 ， 使 用 ASPNET 完成 动态 交互 
SQL Server。 系 统 的 架构 图 如 图 7-1 Pras. 
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HPI SR 
修改 用 户 资料 4 

用 户 激活 、 注 销 + 
查看 其 他 用 户 资料 4 
浏览 栏目 、 文 章 " 


管理 员 登 录 、 注 销 ， 
修改 密码 + 

栏目 管理 
RAPER. 

角 也 管理 + 

设置 系统 信息 + 
PMB Re 


SQL Server 数据 库 。 


| Windows 7 /NT, SQL Server, ASP.NET,VB.NET« 


图 7-1 系统 总 体 功能 设计 


[7.1.3 系统 模块 功能 分 析 


] 到 精通 


一 个 完整 的 BBS 系统 可 分 为 前 台 和 后 台 两 个 部 分 , 前台 主要 用 于 


A 


j 户 浏览 文章 、 发 


表 文 章 和 对 他 人 的 文章 进行 回复 ， 后 台 则 用 于 管理 系统 的 一 些 设置 信息 等 。 


以 此 为 依据 ， 将 本 系统 的 前 台 功 能 模块 划分 如 下 : 
€ ”注册 模块 用 于 新 用 户 注册 新 账号 。 
+ 


用 户 激活 模块 ， 用 户 注册 之 后 ， 系 统 会 将 含有 激活 信息 的 邮件 发 给 用 户 。 用 户 


通过 激活 邮件 来 激活 账户 。 激 活 信 息 正 确 则 将 用 户 设置 为 激活 状态 。 


登录 模块 : 用 户 登 录 系 统 的 入 口 。 
用 户 沫 单 模块 : 显示 当前 用 户 可 进行 的 操作 。 

用 户 资料 模块 ， 显示 用 户 的 资料 。 

编辑 文章 模块 : 编辑 将 要 发 表 的 或 已 发 表 的 文章 。 
BOBO: 用 户 登 录 后 修改 自己 的 个 人 资料 。 
顶部 登录 模块 : 用 户 登 录入 口 。 
首页 栏目 列表 模块 : 显示 当前 系统 中 的 栏目 列表 。 
栏目 文章 列表 模块 ， 显示 选 定 栏目 下 的 所 有 文章 。 
未 登录 提示 模块 : 提示 用 户 没有 登录 。 

发 文 模块 ， 发 表 文章 。 

回复 模块 : 用户 登录 后 可 以 回复 感 兴趣 的 文章 。 


= 


**999999*9€9€99 


根据 ID 显示 文章 内 容 模块 : 首先 判断 指定 ID 的 文章 是 否 存 在 


E， 若 存在 ， 则 显 


示 指 定 文章 的 内 容 。 
文章 及 跟 贴 内 容 模 块 : 显示 文章 及 其 跟 贴 。 


LQ xo3deu) 
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**999*99999*99€9€979 


子 栏目 列表 模块 ; 
功能 模块 划分 如 下 : 


a 
r1 


管理 员 登 录 模 块 : 


添加 管理 员 模 块 : 


添加 角色 模块 : 
修改 密码 模块 : 


显示 选 定 栏目 下 的 子 栏目 


后 台 管 理 的 入 口 。 


证 码 模块 : 自动 生成 验证 码 。 
管理 员 及 其 相关 资料 。 


添加 系统 


NL 

Xs 

添加 栏目 模块 ， 用 于 添加 栏目 
Xs 


] 寺 添加 用 户 的 角 


} 
管理 员 可 以 在 这 是 


f&. 


修改 登录 密码 。 


左 侧 菜单 模块 : 
用 户 列 表 模 块 : 
修改 栏目 模块 : 
角色 管理 横 块 : 
根 栏目 列 
显示 用 户 


系统 设置 模块 : 系统 初始 化 页 面 , 首 


控件 创建 管理 员 、 


> 
出 


A 
示 当 


MAIZE 


H 
i 
} 

Ags 


RR: 
—— ERER 


] 于 修改 栏目 名 称 、 
sea 如 修改 角色 的 权限 。 
级 栏目 


说 明 等 


户 的 详细 


设置 系统 名 称 、 


(07.1.4 网 站 整体 结构 


本 章 将 要 制作 的 BBS 的 系统 结构 如 图 


整个 项 目 文件 对 应 的 文件 架构 如 多 


图 


7-2 所 示 。 


资料 。 
先 删 除数 据 库 中 所 有 记录 , 然后 使 用 
设置 SMTP 服务 器 、 


zi 


BA m Te 


$s THe S 


中 SQLBBS 项 目 用 


系 见 表 7-1。 


IPIE 


图 7-2 


7-3 
于 定义 系统 中 使 月 


系统 结构 图 


m itt N d db 


3 oom am 
IT MU he SS 


IE E 


所 示 。 
昌 的 存储 过 程 ， 


侧 妆 单 ， 提 供 管理 员 可 进行 的 各 项 操作 命令 
前 系统 中 的 所 有 用 户 。 
He 


Wizard 


设置 Logo 文件 。 


Nsqq WB 


RS 


= 
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解决 方案 资源 管理 器 
alaala 
GP FA-ABBSV 
4 È BBS 
4 [Ey SQLBBS 
C3 SQLBBS 
=) SQLBBS.sIn 
WebUI 
=) BBS.sln 
L3 Data 


J pisza. 局 数据 库 资源 .…. 


图 7-3 系统 文件 架构 


表 7-1 SQLBBS 项 目 文件 设计 表 
需要 制作 的 主要 页 面 页 面 名 称 
与 激活 过 程 有 关 的 存储 过 程 ActivationSP.vb 
与 发 文 操作 有 关 的 存储 过 程 ArticleSP.vb 
与 附件 操作 有 关 的 存储 过 程 AttachmentSP.vb 
定义 存储 过 程 用 的 公用 函数 DBTools.vb 
与 栏目 操作 有 关 的 存储 过 程 ltemSP.vb 
与 角色 有 关 的 存储 过 程 RoleSP.vb 
与 系统 设置 有 关 的 存储 过 程 SystemSP.vb 
与 用 户 操作 有 关 的 存储 过 程 UserSP.vb 
WebUI 项 目 是 本 系统 表示 层 、 业 务 层 和 实体 层 的 实现 ,其 文件 目录 结构 如 图 7-4 所 示 。 
Bn 


v- By App Code 
> Bussiness 
yv- E Common 
18] Common. vb 

> DataAccess 
>. | gy Entity 

2 ClassDiagram.cd 
Lj App. Data 
Attachment 
Lj image 
E Activation. aspx 
ActivationControl.ascx 
BottomBannerControl.asi 
E CheckUser,aspx 
Es] Default.aspx 
EE] EditPost.aspx 
EditPostControl.ascx 
il Global.asax 


y-"-Y-Y-Y-Y-V-W-9 


图 7-4 WebUI 项 目的 


录 结 构 


WebUI 目录 下 的 前 台 页 面 与 界面 的 对 应 关系 见 表 7-2。 
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dk 1-2 前台 页 面 与 界面 的 对 应 关系 
需要 制作 的 主要 页 面 页 面 名 称 需要 制作 的 主要 页 面 页 面 名 称 
前 台 页 面 主 控 页 面 MasterPage.master 没有 项 部 菜单 的 主 控 页 | NoTop.master 
程序 启动 时 运行 控制 Global.asax 激活 页 面 Activation.aspx 
今 查 用 户 名 是 否 存在 页 面 | CheckUser.aspx 首页 Default.aspx 
编辑 文章 页 面 EditPost.aspx 登录 页 面 Login.aspx 
户 信息 修改 页 面 ModifyInfo.aspx 发 文 页 面 Post.aspx 
注册 页 面 Register.aspx 初始 化 系统 页 面 Setup.aspx 
显示 附件 页 面 ShowAttachmentaspx | 显示 栏目 页 面 Showltem.aspx 
显示 文章 页 面 ShowPost.aspx 户 信息 页 面 Userlnfo.aspx 
找 回 密码 页 面 UserProtection.aspx 激活 控件 ActivationControl.ascx 
底部 导航 控件 BottomBannerContro.as | 编辑 文章 控件 EditPostControl.ascx 
cx 
首页 栏目 控件 HomeltemControl.ascx | 顶部 登录 控件 HomeLoginControl.ascx 
图 片 链接 控件 ImageLinkControl.ascx | 栏目 文章 列表 控件 ltemAritcleControl.ascx 
登录 控件 LoginControl.ascx 修改 资料 控件 ModifyInfoControl.ascx 
登录 提示 控件 NotLoginControl.ascx | 发 文 控件 PostControl.ascx 
注册 控件 RegisterControl.ascx 回复 控件 ReplyControl.ascx 
根据 ID 显示 文章 内 容 控 件 | ShowPostBylDControl. | 显示 主题 及 回复 控件 | ShowPostControl.ascx 第 
ascx a 
子 栏目 控件 SubltemControl.ascx 顶部 导航 控件 TopBannerControl.ascx Es 
顶部 菜单 控件 TopMemuControl.ascx | 用 户 信息 空间 UserlnfoControl.ascx ty 
WebUl/Admin 目录 实现 系统 的 管理 端 ， 其 中 的 文件 与 界面 的 对 应 关系 见 表 7-3. A 
表 7-3 系统 管理 端的 页 面 设计 表 系 
需要 制作 的 主要 页 面 页 面 名 称 需要 制作 的 主要 页 面 页 面 名 称 
管理 端的 主 控 页 MasterPage.master 管理 端 首页 Default.aspx 例 
登录 页 面 Login.aspx 修改 栏目 页 面 Modifyltem.aspx 
添加 管理 员 页 面 AddAdmin.aspx 添加 栏目 页 面 Addltem.aspx 
添加 角色 页 面 AddRole.aspx 医改 密码 页 面 ChangePassword.aspx 
栏目 管理 页 面 Manageltem.aspx 自 色 管 理 页 面 ManageRole.aspx 
系统 设置 页 面 ManageSystem.aspx JEEE ManageUser.aspx 
修改 角色 名 称 ModifyRole.aspx 生成 验证 码 页 面 Validator.aspx 
添加 管理 员 控件 AddAdminControl.ascx 添加 角色 控件 AddRoleControl.ascx 
添加 栏目 控件 AddltemControl.ascx 管理 端 登录 控件 D S 
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CHE 
需要 制作 的 主要 页 面 页 面 名 称 需要 制作 的 主要 页 面 页 面 名 称 
、 ChangePasswordControl.as UE a 
修改 密码 控件 2 Zc S Le PSE LeftMenu.ascx 
Cx 
会 员 列 表 控 件 MemberListControl.ascx 修改 栏目 控件 Modifyltem.ascx 
a RoleManageControl. 
修改 角色 控件 ModifyRoleControl.ascx 角色 管理 控件 9 
ascx 
, E i 7 ShowMemberDetailC 
根 栏目 列表 控件 RootltemListControl.ascx 显示 会 员 详 情 控 件 
ontrol.ascx 
子 栏目 列表 控件 SubltemListControl.ascx 系统 设置 控件 SystemControl.ascx 
验证 码 控件 ValidateCodeControl.ascx 
WebUI/App_Code/Bussiness 目录 实现 业务 逻辑 ， 其 中 的 文件 与 界面 的 对 应 关系 见 表 
7-4. 
表 7-4 “业务 逻辑 的 页 面 设计 表 
需要 制作 的 主要 页 面 页 面 名 称 
激活 业务 ActivationBussiness.vb 
文章 业务 ArticleBussiness.vb 
附件 业务 AttachmentBussiness.vb 
栏目 业务 ltemBussiness.vb 
角色 业务 RoleBussiness.vb 
系统 设置 业务 SystemBussiness.vb 
j 户 业务 UserBussiness.vb 


Common 目录 实现 系统 中 使 用 的 公用 函数 ， 仅 一 个 文件 Common.vb， 用 于 记录 公用 


数据 存储 层 WebUI/App. Code/ /DataAccess 中 的 文件 BBSTable.xsd 定义 所 有 的 数据 


访问 方法 。 


实体 层 WebUI/App. Code/Entity 中 的 文件 与 界面 的 对 应 关系 见 表 7-5。 


表 7-5 实体 层 的 页 面 设计 表 


需要 制作 的 主要 页 面 页 面 名 称 

激活 实体 ActivationEntity.vb 
文章 实体 ArticleEntity.vb 
附件 实体 AttachmentEntity.vb 
栏目 实体 ltemEntity.vb 
角色 实体 RoleEntity.vb 
系统 实体 SystemEntity.vb 

户 实体 UserEntity.vb 


7.2 数据库 设计 


完成 了 系统 功能 分 析 和 模块 划分 以 后 ， 紧 接着 要 做 的 就 是 如 何 从 这 些 功 能 中 抽象 出 
实体 来 完成 系统 的 功能 需求 。 这 个 过 程 包括 系统 的 实体 分 析 和 数据 结构 的 建立 ， 在 建立 
了 完善 的 实体 和 数据 结构 后 ， 之 后 的 实现 过 程 就 有 了 指导 。 本 节 首 先 介 绍 实体 的 设计 ， 
之 后 再 建立 数据 模型 。 


[7.2.1 实体 设计 
] 户 实体 是 所 有 交互 式 系 统 必须 的 实体 ， 该 实体 包含 !: 用 户 ID、 用 户 名 、 密 码 、 性 
别 、 真 实 姓 名 、 地 址 、 创 建 日 期 、 最 后 登录 日 期 、 和 角色 ID. AIC. Email 地 址 、 密 码 


Z] 


保护 问题 、 密 码 保护 答案 、 是 否 激活 、 是 否 显示 邮件 和 回复 文章 数 ， 如 图 7-5 所 示 。 


a 用 户 实体 29x 
- 用 户 实体 P. 


用 户 ID 用 户 名 称 | | EE 


图 7-5 ”用户 实体 


由 于 该 系统 提供 一 种 激活 机 制 ， 因 此 需要 一 个 激活 实体 ， 包 括 激 活 DD， 用 户 ID 和 
激活 码 ， 如 图 7-6 Pras. 


每 个 用 户 分 配 一 个 角色 ， 这 样 可 以 便于 将 来 为 用 户 设置 能 够 访问 哪些 栏目 等 。 该 实 


体 包括 角色 ID 和 角色 名 称 ， 如 图 7-7 所 示 。 


ge EN 
(C 激活 实体 ) um 
人 一 角色 实体 
P v IN 
A A 
激活 记录 ID 用 户 ID 激活 码 角色 ID 角色 名 称 
图 7-6 ”激活 实体 图 7-7 角色 实体 


文章 实体 是 男 一 个 核心 实体 之 一 ， 包 含 : 文章 ID, FA ID、 发 文 的 用 户 名 称 、 标 
古 、 内 容 、 附 件 D、 发 文 时 间 、 最 后 修改 时 间 、 所 回复 文章 ID, WE 7-8 所 示 。 


于 有 的 人 会 为 了 证 明 自 己 的 观点 而 上 传 一 些 附 件 ， 因 此 需要 一 个 附件 实体 来 保存 


Li 


" 
附件 的 地 址 ， 该 实体 包含 附件 ID、 附 件 URL， 如 图 7-9 所 示 。 
BBS 会 划分 为 一 个 一 个 的 区 域 , 每 一 个 区 域 称 为 一 个 栏目 。 栏 目 实体 包含 : 栏目 ID、 


MA Am. FASTA. KHH ID, WE 7-10 所 示 。 
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(C xs 
SS. 
-一 一 a A e 
BEE | | Hp e 最 后 修改 时 间 | | 所 回复 文章 ID 
Sr aA 
图 7-8 文章 实体 
C mik) ame hee 
sa (C mns 
A 全 P A A a 
附件 ID 附件 URL 栏目 ID | | 栏目 名 称 栏目 介绍 | | 多 栏目 D 


图 7-9 ”附件 实体 图 7-10 ”栏目 实体 


保存 系统 设置 有 很 多 方法 ， 可 以 用 一 个 文本 文档 来 保存 ， 也 可 以 用 一 个 XML 文件 
来 保存 ， 本 系统 采用 的 是 使 用 数据 库 来 保存 。 该 实体 包含 系统 设置 ID、 系统 设置 键 名 和 
系统 设置 键 值 ， 如 图 7-11 所 示 。 


a 


( ”系统 设置 实体 ) 
LE B 
T= 
| 
AC Y A 
设置 ID 设置 键 名 设置 键 值 


图 7-11 系统 设置 实体 
实体 之 间 有 一 定 的 关系 ， 如 图 7-12 所 示 。 用 户 实体 都 要 对 应 一 个 角色 ; 在 未 激活 之 


前 ， 用 户 实体 也 要 和 一 个 激活 实体 对 应 ;一 个 用 户 可 以 发 布 多 篇 文章 ; 一 篇 文章 属于 
个 栏目 ， 一 篇 文章 可 能 会 有 一 个 附件 。 


e 


Pd dm s ws E Pd N 
( nexe ) c m 
BE cem di 
p unii UU UTER 
C mex ) 
pod NA 
^ 
人 xk » 
NIN $ <1 
eee — — 
C. 栏目 实体 (C C 
x PR ( meae ) 


图 7-12 各 个 实体 之 间 的 关系 


[Lp.2.2 ”数据库 详细 设计 
经 过 上 面 的 实体 分 析 , 就 可 以 进行 数据 库 设 计 了 。/ 


表 7-6 UserlInfo 用 户 信 息 表 


户 实体 对 应 用 户 信 息 表 见 表 7-6。 


列 名 类 型 ZR 允许 空 默认 值 说 明 
UserlD int 主键 f Identity(1,1) ]/ ID 
UserName nvarchar(50) fj 用 户 名 称 
Password nvarchar(50) f 密码 
CreateDate datetime T (getdate()) EAE 
LastLogin datetime 是 最 后 登录 时 站 
Sex tinyint T 性 别 
TrueName nvarchar(50) 是 真实 姓名 
Address nvarchar(500) 是 关系 地 址 
RolelD int 是 角色 ID 
Posted int f ((0)) 发 文 数 
Email nvarchar(500) 是 Email 
ProtectQues nvarchar(150) 是 密码 保护 问题 
ProtectionAnswer nvarchar(150) 是 密码 保护 答案 
Actived tinyint fü ((0)) 是 否 激 活 
HE A [- 
ShowEmail tinyint 4 |) "o S 第 
Reposted int f ((0)) 回复 主题 数 E» 
文章 实体 对 应 文章 表 见 表 7-7。 Hu 
表 7-7 Posts 文章 表 z 
列 名 xa |Ak | 是 否 允 许 空 | Sn 说 明 系 
PostlD int 主键 fi Identity(1,1) 发 表 文章 ID 统 
ltemID int 外 键 f 栏目 ID 实 
UserName nvarchar(50) fü 发 布 者 例 
Title nvarchar(150) 是 文章 标题 
Content ntext 是 文章 内 容 
AttachmentlD int fi 附件 ID 
PostTime datetime ff (getdate()) 发 布 时 间 
LastModified datetime 是 最 后 修改 时 间 
PostRePostlD | int 是 所 回复 文章 ID 
角色 实体 对 应 角色 表 见 表 7-8。 
表 7-8 Role 角色 表 
列 名 类 型 约束 是 否 允 许 空 默认 值 说 明 
RolelD int 主键 T Identity(1,1) 角色 ID 
RoleName nvarchar(50) T 角色 名 称 
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激活 实体 对 应 激活 表 见 表 7-9。 


表 7-9 Activation 激活 表 


列 名 类 型 约束 是 否 允 许 空 默认 值 说 明 
ActivationID int 主键 T Identity(1,1) 激活 记录 ID 
UserlD int T 用 户 ID 
ActivationCode | nvarchar(50) T 激活 码 

栏目 实体 对 应 栏目 表 见 表 7-10。 

表 7-10 Item 栏目 表 
列 名 类 型 约束 是 否 允 许 空 默认 值 说 明 
ItemID int 主键 fü Identity(1,1) *H ID 
ItemName | nvarchar(50) f "BANK 
ItemIntro nvarchar(250) 是 “HMA 
ParentlD int 是 父 栏 目 ID 
附件 实体 对 应 附件 表 见 表 7-11。 
表 7-11 Attachment 附件 表 
列 名 类 型 E 是 否 允 许 空 默认 值 说 明 
AttachmentID int 主键 否 Identity(1,1) 附件 ID 
AttachmentURL nvarchar(50) fr 附件 URL 
系统 设置 实体 对 应 系统 设置 表 见 表 7-12. 
表 7-12 System 系统 设置 表 
列 名 类 型 约束 是 否 允 许 空 默认 值 说 明 
SystemID int 主键 fü Identity(1,1) 设置 ID 
SystemKey nvarchar(20) f 设置 键 名 
SystemValue nvarchar(500) 设置 键 值 


7.3 ”技术 细节 


17.3.1 MD5 加 密 算法 介绍 


MDS 是 一 种 单 向 加 密 算法 ,只 是 对 数据 进行 加 密 。 没有 办 法 对 加 密 以 后 的 数据 进行 
解密 。 单 向 加 密 的 作用 在 于 即使 信息 被 泄漏 ， 这 些 经 过 单 向 加 密 的 信息 的 含义 仍然 无 法 
完全 被 理解 。MD5 加 密 算法 的 结构 如 图 7-13 所 示 。 


126-bit constant Padded message (multiple of 512 bes) 
[Ee ooo ae 
Digest 一 


M 
Digest j« 


图 7-13 MD5 算 法 的 结构 


LQ 1e3deu) 
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函数 MDS SR RR 


RA 


一 轮 的 16 个 循环 如 图 7-14 Bros 


Iterations 1-8 


= Iterations 9-316. 


(17.3.2 实现 3 


码 ， 系 统 采 用 了 验证 
机 生成 一 个 数 ， 在 顾客 登录 时 要 求 输入 这 个 数 。 
恶意 请 求 登录 页 


证 码 的 难点 在 于 将 验证 


仿 证 码 的 登录 


与 上 面 的 MDS 加 密 算法 的 目的 相同 ， 为 了 防止 恶意 
码 ( 如 图 7-15 所 示 )。 验 证 码 的 主要 思想 就 是 在 局 
] 系 统 中 记录 的 这 个 随机 数 与 顾客 的 输 


+C 
[ €; 
by+C 
Cd 
[i 
€ 
[4 


s) +bs +C9 
p.q.r) + bo + Cio) 


we 
TTTTTTTÉ 
"""n*»"n"n»n* 
AAARARAAL | 


图 7-14 MD5 算 法 步骤 的 第 一 轮 的 16 个 循环 


用 户 的 密码 到 数据 库 时 进行 了 加 密 。 
WebUI/App. Code/Common/Common. vb 文件 中 的 函数 MD5 实现 。 


em em mj 
in | 


本 系统 使 | 


j 程 序 不 断 猜测 账号 的 密 


XE) 


用 户 登 录 


BPZ: 


admin EX 


EB 


| 验证 码 : 


XD2LZ XDaLz 


图 7-15 ”顾客 登录 


码 转换 成 一 张 图 片 显示 出 来 , 如 图 7-15 中 的 XD2LZ. 
能 由 WebUI/Admin/ValidateCodeControl.ascx 控件 实现 。 


74 系统 实现 


in e vid Wea 表示 


系统 主 控 页 设计 
三 个 母 版 页 ， 一 个 是 前 台 默 认 的 母 版 页 ， 如 图 7-16 所 示 。 


本 节 讲 解 系统 的 实现 , 包括 : 存储 过 程 的 实现 、 pele 


SAWN sgg Ub; 


RAIA CSL. ARES 


页 面 中 ， 不 需要 显示 顶部 菜单 〈 如 注册 页 面 )， 因 此 另外 设计 一 个 母 版 页 ， 
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如 图 7-17 所 示 。 


图 7-16 “前 台 默 认 的 母 版 页 


ContentPlaceHolderi 


Vivi 2012-2013e 版 权 所 有 
lvl e 


图 7-17 BEAT TALES ELI BRL 


个 母 版 页 ， 如 图 7-18 所 示 。 


后 台 管 理 端 设计 


图 7-18 ”管理 端 母 版 页 


本 系统 采用 分 层 架 构 ， 将 系统 分 为 实体 层 、 数 据 访问 层 、 业 务 层 和 表示 层 。 
首先 建立 一 个 名 为 SQLBBS 的 项 目 ， 该 项 目的 文件 含义 见 表 7-1。 
另外 建立 一 个 名 称 为 WebUI 的 网 站 ,该 项 目 是 表示 层 和 业务 层 、 实 体 层 的 实现 。 


项 目 中 各 个 文件 及 其 含义 见 表 7-2 一 表 7-5。 


(07.4.2 存储 过 程 的 实现 


下 面 仅 将 各 代码 文件 中 的 存储 过 程 的 名 称 和 含义 列举 出 来 ， 
文件 source\BBS\SQLBBS\ 目 录 下 的 代码 文件 中 的 具体 实现 。 


请 读者 自行 参阅 本 书 源 


^0 — 
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存储 过 程 名 称 说 明 文件 名 说 明 
i 根据 角色 ID 获取 角色 
AddActiveInfo 添加 激活 信息 GetRoleNameByRoleID p 
LUN 
AddAttachment dS E AE GetRootItem 获取 一 级 栏目 列表 
AddItem 添加 栏 GetSystemValueByKey 根据 键 获取 系统 设置 值 
、 根据 用 户 ID 获取 用 户 
AddPost 添加 主题 GetUserlInfo m 
H US 
AddRePost 添加 回复 GetUserList 获取 用 户 列表 
AddRole 添加 角色 GetUserQuestion 获取 用 户 密码 保护 问题 
AddSystemValue 添加 系统 设置 值 Initialize 初始 化 系统 
AfterLogin 登录 后 处 理 IsActiveInfoCorrect 判断 激活 信息 是 否 正 确 
ChangeRoleNameByID | 根据 角色 ID 修改 B 色 | IsRoleNameExist 角色 名 称 是 否 存 在 
合 查 密码 保护 答 判断 指定 ID 的 栏目 是 
ChecUserAnswer E IsRootItem " 
TMIEM RAE 
DeleteAllSetting | 除 所 有 系统 设置 什 IsUserActived 1 Ae 
DeleteAttachmentByID | 根据 附件 ID 删除 附件 | ISUserNameExist 用 户 名 是 否 存在 
、 、 根据 用 户 名 密码 判断 用 
DeleteItemByID 根据 栏目 ID 删除 栏目 | Login : 
PID 是 否 存 在 第 
DeletePost 1 除 文章 ModifyArticleByID 根据 文章 ID 修改 文章 - 
DeleteUserByID 根据 用 户 DD 删除 用 户 | ModifyInfo 侈 改 用 户 信息 章 
根据 栏目 ID 获取 主题 、 
GetArticleByItemID ModifyItemByID 根据 栏目 ID 修改 栏 z 
列表 
根据 主题 ID 获取 回复 pent 
GetArticleByPostID m ModifyPassword 根据 用 户 名 修改 密码 系 
及 文章 At 
GetAttachmentByID 根据 ID 获取 附件 URL | ModifyRoleByID 根据 角色 ID 修改 角色 fil 
根据 栏目 ID 获取 栏 PEE 
GetItemByID e Register 注册 用 户 信息 
内 容 
根据 父 栏 目 ID 获取 子 "MP 
GetItemB yParentID p SetSystemValueByKey 根据 键 设 置 系统 值 
GUB 根据 文章 ID 获取 文章 — Ü 设置 用 户 为 激活 状态 ， 
etPost a etUserActive 3 nx 
: 内 容 并 删除 对 应 激活 记录 
GetRoleList 获取 角色 列表 
(17.4.3 实现 数据 访问 层 
Visual Web Developer 提供 了 一 种 简单 的 数据 访问 层 实现 机 制 一 一 数据 集 。 
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(1) 在 项 目的 App_Code 文件 夹 下 面 单 击 右键 ， 从 弹出 的 快捷 菜单 中 选择 “添加 新 


项 ” / “数据 集 ”， 如 图 7-19 所 示 。 
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(2) 选择 数据 集 ， 命 名 为 BBSTable， 即 可 出 现 数据 集 制作 的 界面 。 首 先 在 该 界面 
单 击 右键 , 从 弹出 的 快捷 菜单 中 选择 “添加 ”/“TableAdapter” 命 令 , 会 出 现 TableAdapter 
配置 向 导 ， 如 图 7-20 所 示 。 


At 


TableAdapter 配置 向 导 Bm 
选择 您 的 数据 连接 
e B. 
应 用 程序 连接 数据 库 应 使 用 哪个 数据 连接 (W)? 
{LocaleBBS.mdf -| ( sme. ] 
连接 字符 率 (S) 


| FN) > | m 


[57-20 ”TableAdapter 配 置 向 导 第 一 步 


| 


(3) 在 其 中 选择 数据 库 链 接 ， 如 果 没 有 配置 链接 ， 则 单 击 “ 新 建 链接 ”按钮 可 以 
新 建 数据 库 链接 。 单 击 “ 下 一 步 ” 会 出 现 对 话 框 ， 选 择 是 否 将 链接 字符 串 保存 到 应 用 程 
序 配置 文件 中 ， 如 图 7-21 所 示 。 


LQ 1o3deu) 


| 将 连接 字符 本 你 存 到 应 用 程序 配置 文件 中 
RPECUGCVDSSILATUUA.G, 


APR Se urls UR. EÓSBHFENXGUDSNMAMEHSM, Aree 


护 入 一 个 名称 , BM F . SUSIE , efe HEAR TableAdapter 的 一 个 时 性 . 
oe EA 
网 E. RRA): 

LocaleBBSConnectionString 


图 7-21 将 链接 字符 串 保 存 到 应 用 程序 配置 文件 中 


(4) 单 击 “下 一 步 ” 按 钮 ， 弹 出 配置 向 导 对 话 框 ， 指 定 TableAdapter 访问 数据 库 的 
方式 ， 如 图 7-22 所 示 。 
[FE 


Ries ey 
TableAdapter W5 SQ HQT, 6.7 


TableAdapter MMMM SEES? 

© 便 用 SQL RES) 
WSS SQL HG, MeO at SELECT ING , EASE INSERT, UPDATE 和 DELETE i 
&. 


创建 新 存放 过 程 (C) 

SSS SQ. BD , imd en — Heo 04219, Reims SELECT i, MSR 
INSERT. UPDATE 和 DELETE HAT, 

CHARA) 

JgEFMÉRS (SELECT, INSERT, UPDATE 和 DELETE SAMRAT. 
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图 7-22 ”选择 使 用 哪 种 方式 来 访问 数据 库 


(5) 选择 “使 用 现 有 存储 过 程 ” 单 击 “ 下 一 步 ” 会 出 现 选 择 每 个 操作 的 存储 过 
程 的 对 话 框 ， 如 图 7-23 所 示 。 

(6) 单 击 “ 完 成 ”按钮 ， 在 设计 界面 会 出 现 类 似 图 7-24 所 示 的 图 标 。 

CD 在 图 标 上 单 击 右键 ， 从 弹出 的 快捷 菜单 中 选择 “添加 查询 ”选项 ， 会 出 现 配 
置 向 导 ， 选 择 “ 使 用 现 有 存储 过 程 ”， 单 击 “ 下 一 步 ” 按 钮 ， 出 现 的 界面 如 图 7-25 所 示 。 
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—————— 


图 7-23 ”选择 存储 过 程 对 话 框 


= User 

1 UserTableAdapter 
E GetUserList 0 

El AddActivelnfo (@pUserlD, @pActivationC... 
AfterLogin (@pUserName) 
ChecUserAnswer (@pUserID, @pAnswer) 
DeleteUserByID (@pUserID) 


IsUserActived (@pUserID) 
IsUserNameExist (@pUserName) 
Login (@pUserName, @pPassword) 


图 7-25 ”选择 要 调用 的 存储 过 程 界 面 


10 1ə}dey9 
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(8) 在 其 中 选择 要 调用 的 存储 过 程 ， 单 击 “ 下 一 步 ”按钮 ， 出 现 如 
界面 


— 36”, 出 现 图 7-27 所 示 的 界面 。 
(10) 填写 方法 名 ， 单 击 “ 完 成 ”按钮 即 可 完成 添加 查询 。 


名 


7-26 所 示 的 


(9) 根据 存储 过 程 返 回 值 的 情况 进行 选择 ， 在 本 例 中 选择 “表格 数据 ” 单 击 “下 


在 本 系统 中 建立 User、NewsArticle、Item、Commend、Template、SystemSetting、 


NewsAD iXJL^^ TapleAdapter， 分 别 表示 用 户 、 新 闻 、 栏 目 、 评 论 、 模 板 、 系 统 设置 、 


广告 管理 这 几 个 实体 的 数据 访问 层 。 


TableAdapter SIEEN mm 
xit ifs ORT PL GRAS SC È 2| 
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图 7-26 ”选择 由 存储 过 程 返回 的 数据 形式 界面 
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图 7-27 填写 添加 在 TableAdapter 中 的 方法 名 界面 
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(7.4.4 实现 公共 函数 


公共 函数 定义 了 一 些 会 多 次 使 用 的 方法 。 首 先是 加 密 用 函数 : MD5， 它 将 给 定 的 字 
加 和 密 成 32 位 的 MDS 码 ， 代 码 如 例 程 7-1 所 示 。 


列 程 7-1 MDS ak 


符 


A 


Tm 


''' <summary> 

rer SRI EFT ABI MDS fH 

''' </summary> 

''' <param name="pSeed">## MD5 的 值 </param> 

''' <returns></returns> 

Public Shared Function md5(ByVal pSeed As String) As String 
Return 


System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi 
gFile(pSeed, "MD5") .ToLower 
End Function 


删除 文件 也 是 经 常用 到 的 操作 ，DeleteFile 函数 以 文件 路 径 为 参数 ,返回 操作 是 否 成 
功 ， 如 例 程 7-2 所 示 。 


例 程 7-2 删除 文件 函数 


''' <summary> 
rrr 删除 指定 路 径 的 文件 
rr’ </summary> 
''' <param name="Pathn> 路 径 </Pparam> 
''' <zeturns> 删 除 是 否 成 功 </zeturns> 
Public Shared Function DeleteFile(ByVal Path As String) As Boolean 
If System.IO.File.Exists(Path) Then 
Try 
System.IO.File.Delete (Path) 
INGE tela MEVS 
Catch generatedExceptionVariable0 As Exception 
Return False 
End Try 
Else 
Rerin True 
imiavel Iie 
End Function 


创建 目录 函数 CreateDirectory 以 目录 名 为 参数 ， 返 回执 行 是 否 成 功 ， 如 例 程 7-3 所 
Ze 


例 程 7-3 创建 目录 函数 


''' <summary> 


10 1e3deu^ 


rer 在 指定 路 径 创 建 目录 


''' </summary> 
rrr «param name="Path"> 路 径 </param> 
''' <returns> 创 建 是 否 成 功 </returns> 
Public Shared Function CreateDirectory (ByVal Path As String) As Boolean 
If System.IO.Directory.Exists (Path) Then 
IE Wei diee 


Else 
Try 
System.IO.Directory.CreateDirectory (Path) 
Return True 
Catch generatedExceptionVariable0 As Exception 
Return False 
End Try 
End If 
End Function 


经 常 需要 以 时 间 为 种 子 ， 生 成 一 个 文件 名 ，GenerateFileName 函数 实现 的 就 是 这 个 


功能 ， 如 例 程 7-4 所 示 。 


例 程 7-4 生成 文件 名 


ONE messy 

ttr 以 时 间 为 种 子 生成 文件 名 称 

rrr </summary> 

''' <returns></returns> 

Public Shared Function GenerateFileName() As String 

Return DateTime.Now. ToString ("yyyyMMddhhmmss") 3E 
DateTime.Now.Millisecond.ToString 

End Function 


在 页 面 交 互 时 ， 经 常 需要 提示 一 些 信息 ， 并 且 提 示 完 以 后 要 转 到 相应 页 面 ， 


RegisterAlertScript 函数 实现 了 该 功能 ， 如 例 程 7-5 所 示 。 


PIFET-5 注册 提示 信息 并 转向 对 应 页 函数 


Ner 


Public Shared Sub RegisterAlertScript(ByVal pMessage As String, ByVal 
pNavigateTo As String, ByVal pKey As String, ByVal pPage As Page) 
Dim Script As String = "alert('" + pMessage + "');window.navigate('" + 


pNavigateTo + "');" 
pPage.ClientScript.RegisterClientScriptBlock (pPage.GetType, 
pPage.UniqueID + pKey, Script, True) 

End Sub 
有 时 候 需 要 一 些 确认 对 话 框 ， 若 确认 ， 则 转向 一 个 页 面 ;， 若 取消 ， 则 转向 另 一 个 页 
如 例 程 7-6 所 示 。 


例 程 7-6 注册 确认 对 话 框 并 转向 函数 


Public Shared Sub RegisterConfirmScript (ByVal pMessage As String, ByVal 
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pYesNavigateTo As String, ByVal pNoNavigateTo As String, 
ByVal pKey As String, ByVal pPage As Page) 


Iun Sere As une (om V <p joMissseee uw UV) dm 
Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & " 
window.navigate('" * pYesNavigateTo * EA & 
Microsoft.VisualBasic.Chr(13) & "" & Microsoft.VisualBasic.Chr(10) & " 


else" & Microsoft.VisualBasic.Chr(13) & ""& Microsoft.VisualBasic.Chr (10) 

& " window.navigate('" + pNoNavigateTo + "')" 
pPage.ClientScript.RegisterClientScriptBlock (pPage.GetType, 

pPage.UniqueID + pKey, Script, True) 

End Sub 


有 时 候 需 要 提示 对 话 框 并 返回 上 一 页 ， 如 例 程 7-7 所 示 。 
例 程 7-7 注册 提示 对 话 框 并 返回 上 一 步子 数 


Public Shared Sub RegisterAlertAndBackScript (ByVal pMessage As String, 
ByVal pKey As String, ByVal pPage As Page) 
Dim Script As String = "alert('" + pMessage + "');history.back();" 
pPage.ClientScript.RegisterClientScriptBlock (pPage.GetType, 
pPage.UniqueID + pKey, Script, True) 
End Sub 


发 送 邮件 是 用 户 注册 时 根据 用 户 填 写 的 邮件 来 发 送 激活 链接 给 用 户 用 的 ,如 例 程 7-8 
所 示 。 


例 程 7-8 发 送 邮件 函 


Public Shared Function SendEmail(ByVal pTitle As String, ByVal pBody As 
String, ByVal pSendTo As String, ByVal pSendFrom As String, ByVal pSMTP 
As String, ByVal pSMTPUser As String, ByVal pSMTPPassword As String) As 
String 
Dim smtp As SmtpClient = New SmtpClient 
smtp.Host = pSMTP 
smtp.Credentials = New NetworkCredential (pSMTPUser, pSMTPPassword) 
Tey 
smtp.Send(pSendFrom, pSendTo, pTitle, pBody) 
Catch e As SmtpException 
Return e.StatusCode.ToString 
Catch e As Exception 
Return e.ToString 
End Try 
Nieuwe "Usmuerees" 


End Function 


B/S 系统 的 传递 参数 方法 之 一 就 是 使 用 QueryString， 通 常会 有 许多 传递 ID 的 过 程 ， 


ill 


IsNumber 方法 实现 如 何 判 断 一 个 字符 串 是 否 为 数字 ， 如 例 程 7-9 所 示 


o 


例 程 7-9 判断 指定 字符 串 是 否 为 数字 


Public Shared Function IsNumber(ByVal pToBeTest As String) As Boolean 


Dim reg As Regex = New Regex("\dt") 


Return reg.IsMatch(pToBeTest) 


End Function 


LL. 4.5 


前 面 分 析 过 ， 用 户 实体 有 用 户 ID, 


属性 如 何在 程序 中 定义 及 其 初始 值 。 
网 程 7-10 用 户 实体 定义 


Public 


Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 
Publ 


Publ 


lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 
lic 


lae 


Lie 


实现 实体 层 


Class UserEntity 

UserID AS neegen 
UserName As String 
Password As String 


CreateDate As DateTime 


LastLogin As DateTime 
Sex As Boolean 
TrueName As String 
Address As String 
RoleID As Integer 
Posted As Integer 


Email As String 
Question As String 
Answer As String 
Actived As Boolean 
ShowEmail As Boolean 
RePosted As Integer 


Sub New() 


UserID = -1 
UserName = Nothing 


Password = Nothing 


CreateDate = DateTime.MinValue 


LastLogin = DateTime.MinValue 


Sex 


False 


TrueName = Nothing 
Address = Nothing 


RoleID = -1 
POSTEE = Il 
Email = Nothing 


Question = Nothing 


Answer = Nothing 


B | 


"m 


^J 


ME, WIRE 7-10 显示 这 些 
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Actived = False 


ShowEmail = False 
RePosted - -1 
End Sub 
End Class 


激活 实体 包含 激活 ID、 用 户 ID 和 激活 码 属性 ， 如 例 程 7-11 所 示 。 
例 程 7-11 激活 实体 定义 


Public Class ActivationEntity 
Public ActivationID As Integer 
Public UserID As Integer 


1 


Public ActivationCode As String 


Public Sub New() 
ActivationID - -1 
UserID = -1 


ActivationCode = Nothing 
End Sub 


End Class 


角色 实体 包含 角色 ID 和 角色 名 称 ， 如 例 程 7-12 所 示 。 
例 程 7-12 角色 实体 


Public Class RoleEntity 
Public RoleID As Integer 
Public RoleName As String 


Public Sub New() 


RoleID = -1 
RoleName - Nothing 
End Sub 
End Class 
系统 设置 实体 包括 系统 设置 ID 、 系 统 设置 键 和 系统 设置 值 儿 个 字段 ， 如 例 程 7-13 


所 示 。 


例 程 7-13 系统 设置 实体 


Public Class SystemEntity 
Public SystemID As Integer 
Public SystemKey As String 
Public SystemValue As String 


Public Sub New() 
SystemID - -1 
SystemKey = Nothing 
SystemValue - Nothing 


LO 1e3deu5 
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End Sub 
End Clas 


文章 实体 包含 文章 ID， 栏 目 ID 等 
例 程 7-14 文章 实体 


Public 
Public 
Public 
Public 
PBS ILLES 
Public 
Public 
Public 
IPs 1316 
Public 


Public 


Public 
PostI 
ItemI 


S 


Class ArticleEntity 


POS ID) As lianctiexoKeue 
ies) As lionciexskeue 


UserName As String 


Title As String 
Content As String 


AttachmenID As Integer 
PostTime As DateTime 
LastModified As DateTime 
POSING OSie IND) AS liae 
PhysicalPath As String 


Sub New() 
D = -1 
D = -1 


UserName = Nothing 


Title 
Conte 


= Nothing 
nt = Nothing 


AttachmenID = -1 
PostTime = DateTime.MinValue 


LastModified 
PostRePostID 
PhysicalPath 
End Sub 
End Class 


DateTime.MinValue 
-1 
Nothing 


附件 实体 包含 附件 ID 、 附 件 URL 和 服务 器 物理 


Public 


属性 ， 如 例 程 7-14 所 示 。 


例 程 7-15 附件 实体 


Class AttachmentEntity 


EB 地址 局 


性 ， 如 例 程 7-15 所 示 。 


Public AttachmentID As Integer 
Public AttachmentURL As String 


Public PhysicalP 


Public Sub New() 
AttachmentID - 
AttachmentURL 
PhysicalPath - 

End Sub 

End Class 


ath As String 


=i 
= Nothing 
Nothing 
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栏目 实体 包括 栏目 ID、 栏 目 名 称 、 栏 目 介 绍 和 父 栏 目 ID 属性 ， 如 例 程 7-16 所 示 。 


例 程 7-16 栏目 实体 


T 


Public Class ItemEntity 
Public ItemID As Integer 
Public ItemName As String 
Public ItemIntro As String 
Public ParentID As Integer 


Public Sub New() 
ItemID = -1 
ItemName - Nothing 
ItemIntro = Nothing 
ParentID - -1 

End Sub 

End Class 


[L7.4.6 实现 业务 层 
业务 层 的 实现 包括 用 户 业务 的 实现 、 激活 业务 的 实现 、 角 色 业 务 的 实现 、 栏目 实体 、 
文章 业务 的 实现 、 附 件 业 务 的 实现 ， 以 及 系统 设置 业务 的 实现 ， 分 述 如 下 : 

(C1) 用户 业 务 的 实现 。 首 先 ， 业 务 层 有 一 个 数据 访问 的 私有 变量 ， 在 构造 函数 中 ， 
需要 对 它 进 行 初始 化 ， 如 例 程 7-17 所 示 。 


例 程 7-17 初始 化 数据 访问 变量 


Private userTable As BBSTableTableAdapters.UserTableAdapter 


Public Sub New() 


userTable = New BBSTableTableAdapters.UserTableAdapter 

End Sub 
j 户 登录 过 程 是 一 个 常用 的 过 程 之 一 ， 首 先 验证 用 户 名 是 否 存在 ， 知 存在 ， 则 判断 
] 户 是 否 激活 ， 若 已 激活 ， 再 验证 用 户 名 密码 是 否 正 确 ， 最 后 设置 一 些 善 后 信息 ， 例 如 
地 址 、 邮 箱 、 上 次 登录 时 间 等 ， 如 例 程 7-18 所 示 。 


例 程 7-18 登录 函数 和 登录 后 设置 用 户 实 体 函 数 


A 


€" 


«summary» 
| PUES 


</summary> 


vee 


«param name="pUser"> 用 户 实体 </param> 
''' <returns>true ORM, false Sx AW</returns> 


Public Function Login(ByRef pUser As UserEntity) As Boolean 


"BH SERE 


LQ xe3deu) 
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If Not IsUserNameExist (pUser) Then 


Return False 
ENa EE 
` EHP R 
If Not IsUserActived(pUser.UserID) Then 


Return False 


End If 
TEE userTable.Login(pUser.UserName, 


Common.md5 (pUser.Password) ) .Rows .Count = 0 Then 


Return False 


Else 
SetUserInfo(userTable.AfterLogin(pUser.UserName), pUser) 
Return True 

lige! Iie 

End Function 


''' <summary> 
rer Bee AP fa 
''' </summary> 


''' «param name="pUserTable"></param> 


Private Sub SetUserInfo(ByVal pUserTable As DataTable, ByRef pUser As 


UserEntity) 

pUser.UserName - pUserTable.Rows(0) ("UserName").ToString 第 

pUser.TrueName = pUserTable.Rows(0) ("TrueName").ToString ~ 

If Convert .ToInt32 (pUserTable.Rows (0) ("Actived")) = 0 Then T 
pUser.Actived = False t9 

Else ive) 
pUser.Actived = True she 

End If 系 

If Not Convert.IsDBNull(pUserTable.Rows (0) ("Address")) Then a 
pUser.Address - pUserTable.Rows (0) ("Address").ToString ji 

End If 

If Not Convert.IsDBNull (pUserTable.Rows (0) ("ProtectionAnswer")) Then 
pUser.Answer - pUserTable.Rows (0) ("ProtectionAnswer").ToString 

End If 


pUser.CreateDate = CType (pUserTable.Rows (0) ("CreateDate"), DateTime) 


pUser.Email = pUserTable.Rows(0) ("Email").ToString 

If Not Convert.IsDBNull (pUserTable.Rows (0) ("LastLogin")) Then 
pUser.LastLogin = CType(pUserTable.Rows (0) ("LastLogin"), DateTime) 

End If 

pUser.Posted = Convert .ToInt32 (pUserTable.Rows (0) ("Posted") ) 

If Not Convert.IsDBNull (pUserTable.Rows (0) ("ProtectQuestion")) Then 
pUser.Question = pUserTable.Rows (0) ("ProtectQuestion") .ToString 

End If 
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pUser.RePosted = Convert.ToInt32(pUserTable.Rows (0) ("RePosted")) 


If Not Convert.IsDBNull(pUserTable.Rows (0) ("RoleID")) Then 
pUser.RoleID = Convert.ToInt32(pUserTable.Rows (0) ("RoleID")) 
Idyavel ICSE 
If Convert .ToInt32 (pUserTable.Rows (0) ("Sex")) = 0 Then 
pUser.Sex = False 
Else 
pUser.Sex = True 
End Lf 
If Convert.ToInt32 (pUserTable.Rows (0) ("ShowEmail")) = 0 Then 
pUser.ShowEmail = False 
Else 
pUser.ShowEmail = True 
End If 
pUser.RePosted = Convert.ToInt32(pUserTable.Rows (0) ("RePosted") ) 
End Sub 


例 程 7-19 是 用 来 判断 用 户 名 称 是 否 存 在 的 ， 若 存在 则 返回 其 ID. 
例 程 7-19 判断 用 户 名 称 是 否 存 在 


''' <summary> 

判断 指定 ID 用 户 是 否 存在 

''' </summary> 

''' <returns>true 存在 ，false 不 存在 </returns> 

Public Function IsUserNameExist(ByRef pUser As UserEntity) As Boolean 


~ 

~ 

~ 
| 


Dim userID As Object = userTable.IsUserNameExist (pUser.UserName) 
If userID Is Nothing Then 
Return False 


Else 
pUser.UserID = Convert.ToInt32 (userID) 
Return True 

End If 

End Function 


NRE 7-20 判断 指定 ID 用 户 是 否 激活 。 
例 程 7-20 判断 指定 ID 用 户 是 否 激活 


T 


''' <summary> 
rer Pita ID 用 户 是 否 激活 


''' </summary> 


''' <param name-"pUserID"»H|P' ID</param> 
''' <returns>true LN. false MAYGA</returns> 

Public Function IsUserActived(ByVal pUserID As Integer) As Boolean 
If userTable.IsUserActived(pUserID) Is Nothing Then 


Return False 


Else 


Return True 
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End If 


End Function 


若 其 他 用 户 要 查看 指定 用 户 的 信息 ， 需 要 使 用 根据 D 来 获取 用 户 资料 的 方法 ， 如 


例 程 7-21 首先 判断 指定 ID 用 户 是 否 存在 ， 若 不 存在 则 返回 false; 若 存 在 则 获取 用 户 资 


返回 true。 
例 程 7-21 根据 ID 获取 用 户 信息 


''' <summary> 

rr 根据 ID 获取 用 户 信息 

'''«/summary» 

'''cparam name="pUser"> 用 户 实体 </param> 

''' <returns> 若 指定 ID 用 户 信 息 不 存在 返回 false, 否则 返回 true</returns> 
Public Function GetUserByID(ByRef pUser As UserEntity) As Boolean 
Dim userInfo As DataTable = userTable.GetUserByID (pUser.UserID) 
If userInfo.Rows.Count = 0 Then 


Return False 

Else 
SetUserInfo(userInfo, pUser) 
Kervin Tive 

End If 


End Function 


j 户 注册 函数 根据 填写 的 用 户 资料 进行 注册 并 返回 激活 码 ， 如 例 程 7-22 所 示 。 
例 程 7-22 注册 函数 


''' «summary» 
rr "TEM FFB Ie 

''' </summary> 

''' <param name-"pUser"» ] 户 实体 </param> 

''' <returns> 激 活 码 </returns> 

Public Function Register(ByRef pUser As UserEntity) As String 


Dim iSex As Integer = 0 
Dim iShowEmail As Integer = 0 
If pUser.Sex Then 
iSex = 1 
End If 
If pUser.ShowEmail Then 


iShowEmail = 1 


End If 
Dim userID As Object - userTable.Register(pUser.UserName, 
Common .md5 (pUser.Password) , iSex, pUser.Email, pUser.TrueName, 


pUser.Answer, pUser.Question, pUser.Answer, iShowEmail, pUser.RoleID) 


If userID Is Nothing Then 
Return Nothing 
Else 
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激活 过 程 首 先 使 用 激活 业务 层 的 方法 判断 激活 


活 状 
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Dim actBuss As ActivationBussiness = New ActivationBussiness 


Dim act As ActivationEntity - New ActivationEntity 


pUser.UserID = Convert.ToInt32 (userID) 
act.UserID = Convert.ToInt32(userID) 
actBuss.AddActivation (act) 
Return act.ActivationCode 

End If 


End Function 


注册 之 后 , 会 将 含有 激活 信息 的 邮件 发 给 用 户 , 然后 用 户 通过 激活 邮件 来 激活 账户 。 


t 


言 息 是 否 正 确 ， 若 正确 则 将 用 户 设置 为 激 


态 ， 如 例 程 7-23 所 示 。 
例 程 7-23 激活 过 程 
'’’<returns> 已 激活 actived; 激活 码 和 用 户 ID 不 一 致 failed; 激活 成 功 


success</returns> 


Public Function SetUserActived(ByRef pUser As UserEntity, ByVal pAct As 
ActivationEntity) As String 
Dim actived As Object = userTable.IsUserActived(pUser.UserID) 
If Not (actived Is Nothing) Then 
Return "actived" 
End If 
Dim actBuss As ActivationBussiness = New ActivationBussiness 
If actBuss.IsActivationInfoCorrect (pAct) Then 
pUser.UserID = pAct.UserID 
userTable.SetUserActived(pUser.UserID, pAct.ActivationID) 
GetUserByID (pUser) 
Return "success" 
Else 
Return "failed" 
End If 


End Function 


UK 
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户 所 输入 的 回答 是 否 正确 ， 若 正确 则 允许 用 户 修改 密码 ， 如 例 程 7.24 所 示 。 


LO DICE 


例 程 7-24 获取 密码 保护 和 检查 密码 保护 回答 函数 


''' <summary> 
“获取 用 户 密码 保护 问题 


''' </summary> 


'''cparam name="pUser"> 用 户 实体 </param> 


EN 


“77<zeturns> 若 没有 则 返回 false; 若 有 则 返回 true</returns> 


Public Function GetUserQuesion (ByRef pUser As UserEntity) As Boolean 
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Dim userQuestion As Object - userTable.GetUserQuestion (pUser.UserID) 


If userQuestion Is Nothin 
Return False 


Else 


g Then 


pUser.Question - CType(userQuestion, String) 


Return True 
Bad: rr 


End Function 


‘rr «summary» 


，… 检查 用 户 密码 保护 答案 是 否 正确 


‘rr </summary> 


''' «param name="pUser"> 


1P SE /param» 


''' <returns>true Eff; false 错误 </returns> 
Public Function IsUserAnswerRight (ByVal pUser As UserEntity) As Boolean 
Dim userAnswer As Object = userTable.ChecUserAnswer (pUser.UserID, 


pUser.Answer) 
If userAnswer Is Nothing 
Return False 

Else 

INGHE DUET desee 

End If 

End Function 


Then 


修改 密码 过 程 如 例 程 7-25 所 示 。 
例 程 7-25 根据 用 户 名 修改 密码 


Public Sub ModifyPassword(ByVal pUser As Userl 


userTable.ModifyPassword 
End Sub 


另外 还 有 一 些 修 改 用 户 密码 、 修 改 用 户 个 人 资料 、 修 改 ) 


户 和 获取 用 户 列 表 的 方法 ， 如 例 程 


'''«summary» 
“修改 用 户 角 色 ID 
'''«/summary» 


'''«param name-"pUserID"- 


Entity) 


(pUser.UserName, Common.md5(pUser.Password)) 


N 


7-26 所 示 。 
例 程 7-26 其 他 函数 


1P ID</param> 


''' <param name="pRoleID">ffj {4 ID</param> 


JF 


有色、 根据 ID 删除 用 


Public Sub ModifyRoleByID (ByVal pUserID As Integer, ByVal pRoleID As 


Integer) 
userTable.ModifyRoleByID 
End Sub 


(pUserID, pRoleID) 
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''' <summary> 
“… 修改 用 户 信息 
''' </summary> 
''' <param name="pUser"> ] 户 实体 </param> 


Public Sub ModifyInfo(ByVal pUser As UserEntity) 
If pUser.ShowEmail Then 
userTable.ModifyInfo(pUser.UserID, pUser.TrueName, pUser.Address, 
pUser.Email, pUser.Question, pUser.Answer, 1) 
Else 
userTable.ModifyInfo(pUser.UserID, pUser.TrueName, pUser.Address, 
pUser.Email, pUser.Question, pUser.Answer, 0) 
End If 
End Sub 


''' <summary> 

“获取 所 有 注册 用 户 列 表 
'''«/summary» 

''' <returns> 注 册 用 户 列表 </ returns> 


Public Function GetUserList() As DataTable 
Return userTable.GetUserList 


End Function 


''' <summary> 
根据 ID 删除 用 户 


''' </summary> 


''' «param name="pUserID"> 用 户 ID</param> 


Public Sub DeleteUserByID(ByVal pUserID As Integer) 
userTable.DeleteUserByID (pUserID) 
End Sub 


(2) 激活 业务 的 实现 。 首 先是 添加 激活 码 ， 激 活 码 以 用 户 ID 和 时 间 为 种 子 ， 生 成 
MDS 串 ， 将 串 保 存 到 数据 库 中 并 通过 激活 实体 返回 ， 如 例 程 7-27 所 示 。 


例 程 7-27 添加 激活 码 


Mr 


'''«summary» 

“添加 激活 码 

'' </summary> 

'''«param name="act"> 激 活 实体 </param> 


Public Sub AddActivation(ByRef act As ActivationEntity) 
act.ActivationCode = Common .md5 (act .UserID.ToString + 
DateTime .Now.ToString ("yyyyMMddhhmmss") + 


10 1e3deu) 


DateTime .Now.Millisecond.ToString) 
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userTable.AddActiveInfo(act.UserID, act.ActivationCode) 


End Sub 
然后 就 是 判断 激活 信息 是 否 正 确 ， 以 激活 实体 为 参数 ， 如 例 程 7-28 所 示 。 


例 程 7-28 判断 激活 信息 是 否 正 确 


''' <summary> 

ree 判断 激活 信息 是 否 正确 
''' </summary> 
''' <param name="act"> 激 活 实 体 </param> 
''' <returns></returns> 


Public Function IsActivationInfoCorrect (ByRef act As ActivationEntity) 
As Boolean 

Dim actID As Object =  userTable.IsActiveInfoCorrect (act.UserID, 
act.ActivationCode) 

If actID Is Nothing Then 

Return False 

Else 

act.ActivationID = Convert.ToInt32 (actID) 

Return True 
End If 
End Function 


(3) 角色 业务 的 实现 。 添 加 角色 以 角色 名 为 参数 ， 返 回 值 为 添加 的 ID, ZP2g-l 说 
明 添加 失败 ， 如 例 程 7-29 所 示 。 


例 程 7-29 添加 角色 


Public Function AddRole(ByVal pRoleName As String) As Integer 
Dim roleID As Object - roleTable.AddRole (pRoleName) 
If roleID Is Nothing Then 


Return -1 
Else 

Return Convert.ToInt32(roleID) 
ael EE 


End Function 
根据 ID 获取 角色 名 ， 该 过 程 以 角色 为 参数 ， 返 回 角 色 名 ， 若 为 -1 则 说 明 没有 对 应 
的 角色 ID， 如 例 程 7-30 所 示 。 
例 程 7-30 根据 角色 ID 获取 角色 名 称 


S 


Public Function GetRoleNameByRoleID(ByVal pRoleID As Integer) As String 
Dim roleName As Object = roleTable.GetRoleNameByRoleID (pRoleID) 
If roleName Is Nothing Then 
Return Nothing 


Else 


Return roleName.ToString 
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End If 


End Function 
在 添加 角色 的 时 候 ， 首 先 需 要 判断 角色 名 称 是 否 已 经 存在 ,车 存在 返回 角色 ID, $$ 
则 返回 -1， 如 例 程 7-31 所 示 。 


例 程 7-31 判断 角色 名 称 是 否 存 在 


Pal 


Public Function IsRoleNameExist (ByVal pPoleName As String) As Integer 
Dim roleID As Object - roleTable.IsRoleNameExist (pPoleName) 
If roleID Is Nothing Then 
Return -1 
Else 
Return Convert.ToInt32(roleID) 
End If 
End Function 


剩 下 就 是 修改 角色 名 称 和 获取 角色 列表 的 函数 ， 如 例 程 7-32 所 示 。 
网 程 7-32 其 他 函数 


Public Sub ChangRoleName (ByVal pRole As RoleEntity) 
roleTable.ChangeRoleNameByID (pRole.RoleID, pRole.RoleName) 
End Sub 


Public Function GetRoleList() As DataTable 
Return roleTable.GetRoleList 
End Function 


(4) 栏目 实体 。 添 加 栏目 方法 以 栏目 实体 为 参数 ， 如 例 程 7-33 所 示 。 
例 程 7-33 添加 栏目 


Public Sub AddItem(ByVal pItem As ItemEntity) 
itemTable.AddItem(pltem.ItemName, pItem.ItemIntro, pItem.ParentID) 
End Sub 


根据 栏目 IDE AAA, d ID 不 存在 返回 false; AAEM AAA, utr] 
f£ 7-34 所 示 。 


5427-34 根据 ID 获取 栏目 内 容 


Public Function GetItemByItemID (ByRef pItem As ItemEntity) As Boolean 
Dim item As DataTable = itemTable.GetItemByID (pItem.ItemID) 
If Not (item.Rows.Count = 0) Then 
plItem.ItemIntro = item.Rows (0) ("ItemIntro").ToString 
pitem.ItemName = item.Rows(0) ("ItemName") .ToString 


If Not Convert.IsDBNull(item.Rows (0) ("ParentID")) Then 
pitem.ParentID = Convert.ToInt32(item.Rows (0) ("ParentID")) 
End If 
Return True 
Else 


Return False 
End Tf 
End Function 


有 时 候 需 要 判断 指定 ID 的 栏目 是 否 为 一 级 栏目 ， 如 例 程 7-35 所 示 。 


例 程 7-35 判断 指定 ID 栏目 是 否 存 在 


Public Function IsRootItem(ByVal pItemID As Integer) As Boolean 


If itemTable.IsRootItem(pItemID) Is Nothing Then 
Return False 

Else 

INE GEI. Ure 

Bnet 

End Function 


其 他 就 是 获取 栏目 列表 、 添 加 栏目 、 根 据 ID 删除 栏目 、 修 改 栏目 名 称 、 


栏目 和 根据 4 SCID 获取 子 栏目 ， 如 例 程 7-36 所 示 。 


例 程 7-36 其 他 函数 


''' <summary> 
ULIS 
'''«/summary» 

rrr «param name="pItem"> 栏 目 实 体 </param> 


Public Sub AddItem(ByVal plItem As ItemEntity) 


获取 一 级 


itemTable.AddItem(pltem.ItemName, pItem.ItemIntro, pItem.ParentID) 


End Sub 


‘rr <summary> 

“ ”根据 ID 删除 栏 
''' </summary> 
''' «param name="pItemID"> 栏 目 ID«/param» 


Public Sub DeleteItemByID (ByVal pItemID As Integer) 
itemTable.DeleteItemByID (pItemID) 
End Sub 


''' <summary> 

rrr 修改 栏目 名 称 、 介 

''' </summary> 

'''cparam name="pItem"> 栏 目 实体 </param> 

Public Sub ModifyItem(ByVal PItem As ItemEntity) 


itemTable.ModifyItemByID (pItem. ItemName, pItem.ItemIntro, 


pItem.ItemID) 
End Sub 
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‘rr <summary> 
“获取 一 级 栏目 列表 
''' </summary> 
rrr <returns> 一 级 栏目 列表 </returns> 
Public Function GetRootItem() As DataTable 
Return itemTable.GetRootItem 


End Function 


''' <summary> 
“… 根据 父 栏目 ID 获取 栏目 列表 


''' </summary> 


'''«param name="pItemID"> 栏 目 ID</param> 

''' <returns> 栏 目 列 表 </returns> 

Public Function GetItemByParentID (ByVal pParentID As Integer) As DataTable 
Return itemTable.GetItemByParentID (pParentID) 

End Function 


(5) 文章 业务 的 实现 。 首 先是 添加 文章 ， 以 文章 实体 为 参数 ， 执 行 完 成 后 ， 通 过 
实体 将 文章 ID 返回 ， 如 例 程 7-37 ATA 


例 程 7-37 添加 文章 


Public Sub AddPost (ByRef art As ArticleEntity) 
Dim postID As Object = articleTable.AddPost (art.ItemID, art.UserName, 
art.Title, art.Content, art.AttachmenID) 
If Not (postID Is Nothing) Then 
art.PostID = Convert.ToInt32(postID) 
End If 
End Sub 


删除 文章 首先 删除 文章 的 附件 ， 然 后 再 删除 文章 ， 如 例 程 7-38 所 示 。 
例 程 7-38 删除 文章 


Public Sub DeletePost(ByVal art As ArticleEntity) 
If Not (art.AttachmenID - -1) Then 
Dim attBuss As AttachmentBussiness = New AttachmentBussiness 
Dim att As AttachmentEntity = New AttachmentEntity 
att.AttachmentID = art.AttachmenID 
att.PhysicalPath = art.PhysicalPath 
attBuss.DeleteAttachmentByID (att) 
End If 
articleTable.DeletePost (art.PostID) 
End Sub 


根据 ID 获取 文章 内 容 ， 如 例 程 7-39 所 示 。 
例 程 7-39 根据 ID 获取 文章 内 容 


''' <summary> 


rer 根据 ID 获取 文章 内 容 
''' </summary> 
Public Sub GetContentByID(ByRef art As ArticleEntity) 
Dim dtContent As DataTable - 
articleTable.GetPostContentByID(art.PostID) 
If Not (dtContent.Rows.Count = 0) Then 
art.ItemID = Convert.ToInt32 (dtContent. Rows (0) 


("ItemID") ) 
art.UserName = Convert.ToString (dtContent.Rows (0) ("UserName") ) 
art.Title = Convert .ToString(dtContent.Rows (0) ("Title") ) 
art.Content = Convert .ToString(dtContent.Rows (0) ("Content") ) 

If Not Convert.IsDBNull (dtContent.Rows (0) ("AttachmentID")) Then 
art.AttachmenID = 


Convert .ToInt32 (dtContent.Rows (0) ("Attachment ID") ) 


Emenee 
art.PostTime = Convert.ToDateTime (dtContent.Rows (0) ("PostTime")) 
If Not Convert.IsDBNull (dtContent.Rows (0) ("LastModified")) Then 


art.LastModified - 


Convert.ToDateTime (dtContent .Rows (0) ("LastModified")) 
End If 

End If 

End Sub 

修改 文章 以 文章 实体 为 参数 ， 如 例 程 7-40 所 示 。 


例 程 7-40 修改 文章 


Public Sub ModifyAritcle (ByVal art As ArticleEntity) 
articleTable.ModifyArticleByID(art.Title, art.Content, art.PostID) 
End Sub 


添加 回复 以 文章 实体 为 参数 ， 如 例 程 7-41 所 示 。 
例 程 7-41 添加 回复 


Public Sub AddRepost (ByVal art As ArticleEntity) 


articleTable.AddRePost (art.ItemID, art.UserName, gue sabe e 
art.Content, art.PostRePostID) 
End Sub 


根据 栏目 ID 获取 主题 列表 ， 如 例 程 7-42 所 示 。 
例 程 7-42 根据 栏目 ID 获取 主题 列表 


Public Function GetPostByItemID (ByVal plItemID As Integer) As DataTable 
Return articleTable.GetArticleByItemID (pltemID) 


End Function 


根据 ID 获取 主题 和 回复 如 例 程 7-43 所 示 。 
例 程 7-43 根据 ID 获取 主题 和 回复 


Public Function GetArticleByPostID (ByVal pPostID As Integer) As DataTable 
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Return articleTable.GetAr 
End Function 


C6) 附件 业务 的 实现 。 添 加 附件 方法 首先 判断 存储 附件 的 目录 是 否 存在 ， 若 不 存 
在 则 创建 之 ;之 后 再 将 文件 上 传 到 服务 器 ， 最 后 保存 在 服务 器 储存 的 地 址 ， 返 回执 行 是 
否 成 功 并 通过 附件 实体 返回 附件 的 YD, PEE 7-44 所 示 。 


ticleByPostID(pPostID) 


T 


im 


5127-44 上 传 附件 


Public Function AddAttachment (ByRef att As Attachment 
fileUpload As FileUpload) As Boolean 

SIENEN 

Dim attPath As String = 


Entity, ByVal 


att.PhysicalPath + "\Attachment" 
If Common.CreateDirectory(attPath) Then 


attPath += "\" + DateTime.Now. Year.ToString 
att.AttachmentURL = "/" + DateTime.Now. Year.ToString 
If Common.CreateDirectory(attPath) Then 
attPath += "\" + DateTime.Now.Month.ToString 
att.AttachmentURL += "/" + DateTime.Now.Month.ToString 
If Common.CreateDirectory (attPath) Then 

attPath += "\" + DateTime.Now.Day.ToString 

att.AttachmentURL += "/" + DateTime.Now.Day.ToString 

、 若 创建 目录 成 功 
If Common.CreateDirectory(attPath) Then 
"Eft 


Dim fileName As String - 


Common.GenerateFileName 
Dim fileType As String = 
Extension (fileUpload.PostedFile.FileName) 
att.AttachmentURL += "/" + fileName + fileType 

attPath += "\" + fileName + fileType 

fileUpload.SaveAs (attPath) 


、 若 创建 不 成 功 


System.IO.Path.Get 


Else 

Return False 
End If 
` 若 创建 不 成 功 


Else 


Return False 
End If 
` 若 创建 不 成 功 


Else 


Return False 
End rr 
` 若 创建 不 成 功 


Else 


LQ xe3deu 
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Return False 
End If 
Dim attID As Object = artTable.AddAttachment (att.AttachmentURL) 
If Not (attID Is Nothing) Then 

att.AttachmentID = Convert.ToInt32(attID) 


looo. Ise 
Return True 
End Function 


ME UE tds Re 若 存在 将 附件 文件 本 身 删 除 ， 再 将 数据 


记录 删除 ， 返 回执 行 是 否 成 功 ， 如 例 程 7-45 所 示 。 
例 程 7-45 删除 附件 


Public Function DeleteAttachmentByID(ByVal att As AttachmentEntity) As 


Boolean 
` 若 该 附件 信息 存在 
If GetAttachmentByID(att) Then 
Dim fileName As String = att.PhysicalPath + "\attachment™ + 


att.AttachmentURL.Replace("/", "\") 
If Common.DeleteFile (fileName) Then 
Return True 


Else 
Return False 
End If 第 
~ 
End Function w 
根据 ID 获取 附件 ID, 以 附件 实体 为 参数 , 若 指定 ID 的 附件 信息 不 存在 , 返回 false; A 
车 存在 返回 tue， 并 通过 附件 实体 返回 其 URL， 如 例 程 7-46 所 示 。 系 
1427-46 根据 ID 获取 附件 信息 和 
Fi 


Public Function GetAttachmentByID(ByRef att As AttachmentEntity) As 


Boolean 
Dim attURL As DataTable = artTable.GetAttachmentByID (att.AttachmentID) 


` 若 没有 符合 条 件 的 记录 
If attURL Is Nothing Then 
Return False 


Else 
att.AttachmentURL = attURL.Rows (0) (0) .ToString 


Return True 
End Tf 
End Function 


CI) 系统 设置 业务 的 实现 。 首 先是 初始 化 系统 ， 它 将 保存 在 数据 库 中 的 信息 4 


f. 
ng 
vA 


删除 ， 如 例 程 7-47 所 示 。 
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例 程 7-47 初始 化 系统 


'''«summary» 


“初始 化 系统 《即将 所 有 信息 删除 ! ) 


rrr 


</summary> 

Public Sub Initialize() 
sysTable.Initialize 

End Sub 


添加 键 值 、 修 改 键 值 和 删除 键 值 ， 如 例 程 7-48 所 示 。 
例 程 7-48 添加 、 删 除 、 修 改 键 值 


''' «summary» 

“根据 Key 获取 Value 

''' </summary> 

''' <zreturns> 若 有 记录 则 返回 true;， 否则 返回 false</returns> 

Public Function GetValueByKey(ByRef sys As SystemEntity) As Boolean 


Dim sysValue As DataTable = sysTable.GetSystemValueByKey (sys.SystemKey) 
If sysValue.Rows.Count = 0 Then 
Return False 


Else 
sys.SystemValue = sysValue.Rows (0) (0) .ToString 
Return True 

G Iie 


End Function 


''' <summary> 

“根据 Key 设置 Value 

''' </summary> 

rrr <returns>Key 和 Value 4:79 Al < /returns> 

Public Function SetValueByKey (ByVal sys As SystemEntity) As Boolean 


If (sys.SystemKey Is Nothing) OrElse (sys.SystemValue Is Nothing) Then 
Return False 


Else 
sysTable.SetSystemValueByKey (sys.SystemKey, sys.SystemValue) 
Return True 

End Tf 


End Function 


''' <summary> 

“添加 Key 和 Value 

''' «/summary» 

rrr <returns>Key 和 Value 是 否 都 赋值 </returns> 

Public Function AddValueByKey(ByVal sys As SystemEntity) As Boolean 


If (sys.SystemKey Is Nothing) OrElse (sys.SystemValue Is Nothing) Then 


Return False 


Else 
SysTable.AddSystemValue (sys.SystemKey, sys.SystemValue) 


Return True 
End If 
End Function 


还 有 一 个 函数 是 仅 将 系统 所 有 设置 值 删 除 ， 如 例 程 7-49 所 示 。 
例 程 7-49 删除 所 有 设置 值 


‘rr <summary> 
“删除 所 有 系统 设置 

''' </summary> 

Public Sub DeleteAllSetting() 
SysTable.DeleteAllSetting 

End Sub 


LL. 4.7 ”表示 层 系统 初始 化 


系统 初始 化 页 面 首先 在 页 面 载 入 时 调用 系统 业务 的 Initialize 方法 将 数据 库 中 所 有 记 
录 删 除 ， 之 后 创建 检查 管理 员 和 普通 用 户 角色 ， 如 例 程 7-50 所 示 。 
例 程 7-50 页 面 载 入 的 处 理 


Protected Sub Page Load(ByVal sender As Object, ByVal e As EventArgs) 
` 检查 管理 员 角 色 是 否 存 在 
If Not IsPostBack Then 
Dim sysBuss As SystemBussiness = New SystemBussiness 


sysBuss.Initialize 
Dim roleBuss As RoleBussiness = New RoleBussiness 
Dim adminRoleID As Integer = roleBuss.IsRoleNameExist ("管理 员 ") 


、 若 不 存在 ， 则 创建 并 保存 管理 员 角 色 ID 


If adminRoleID - -1 Then 
Session("AdminRoleID") = roleBuss.AddRole ("管理 员 ") 


否则 保存 管理 员 角 色 ID 


Else 

Session("AdminRoleID") = adminRoleID 

End If 

If roleBuss.IsRoleNameExist (" 普 通用 户 ") = -1 Then 
roleBuss.AddRole ("普通 用 户 ") 

End If 


然后 使 用 Wizard 控件 分 5 步 对 系统 进行 初始 化 ， 如 图 7-28 一 图 7-32 所 示 。 


y 


357 


ANsgg WLW 


ASP.NET 4.0 5 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


— 初始 化 系统 设置 | 
p WEESHS 
SHARPS. [站 。” [ 请 输入 用 户 名 ! 
am. [A 
mee, — [A MA 
下 一 步 
图 7-28 ”系统 设置 第 一 步 一 一 设置 管理 员 密 码 


第 一 步 ， 输入 系统 名 称 
系统 名 称 ， 请 输入 系统 名 称 ! 


r-s| [T 


图 7-29 系统 设置 第 二 步 


输入 系统 名 称 


第 三 步 ， 设置 SITP 服 务 器 


Sp 请 输入 SITP 地 址 ! 
RP: 请 输入 用 户 名 ! 

密码 : 请 输入 密码 ! 

确认 密 : 厂 一 一 一 一 一 一 : 请 再 次 输入 密码 ! 两 次 输入 密码 


| Ar _ — —] 请 输入 发 件 人 地 址 ! 


图 7-30 系统 设置 第 三 步 一 一 设置 SMTP 服务 器 


第 四 步 上 传 系统 Logo 
Sm | ”请 选择 系统 Logol 文件 类 型 只 可 以 


征 jpg, gif 

上 一 步 | [ms 
C3 E] 7-31 系统 设置 第 四 步 一 一 上 传 系统 Logo 
E Bas. 系统 顶部 广告 
广告 图 片 URL， [ 
Oo 广告 蔡 代 文字 ， 
- 广告 导航 地 址 ， TC 
(D E RR 

图 7-32 ”系统 设置 第 五 步 一 一 设置 系统 顶部 广告 

一 了 


在 Wizard 的 NextButtonClick $44 P Ab # 
4471-51 单 击 下 一 步 的 事件 


Protected Sub Wizardl NextButtonClick (ByVal sender As Object, ByVal e As 


WizardNavigationEventArgs) 


Dim sys As SystemEntity = New System 


Dim sysBuss As SystemBussiness = 


Select e.CurrentStepIndex 


Case 0 
` 添 加 管理 员 


E 对 应 的 事件 ， 如 例 程 7-51 所 示 。 


Entity 


New SystemBussiness 


Dim user As UserEntity = New UserEntity 


user.Email = "root@bbs.com" 
user.Password = tbxPassword.Text 
user.TrueName = "管理 员 " 


user.UserName = tbxUserName.Text 


Dim userBuss As UserBussiness = 


New UserBussiness 


Dim act As ActivationEntity - New ActivationEntity 


act.ActivationCode = userBuss.Register (user) 


act.UserID = user.UserID 


userBuss.SetUserActived(user, act) 
userBuss.ModifyRoleByID (user.UserID, 


Integer)) 
' break 
Case 1 


` 设 置 系统 名 称 


Sys.SystemKey = "BBSName" 


CType (Session("AdminRoleID"), 


Sys.SystemValue = tbxSystemName.Text 


sysBuss .AddValueByKey (sys) 


Application ("BBSName") = tbxSystemName. Text 


' break 


Case 2 
\ 设 置 SMTP 服务 器 


Sys.SystemKey = "SMTP" 
Sys.SystemValue = tbxSMTP.Text 
sysBuss.AddValueByKey (sys) 


Application ("SMTP") = tbxSMTP.Text 


Sys.SystemKey = "SMTPAccount" 


Sys.SystemValue = tbxSMTPUserName.] 


sysBuss .AddValueByKey (sys) 


ext 


Application ("SMTPAccount") = tbxSMTPUserName.Text 


Sys.SystemKey = "SMTPPassword" 


Sys.SystemValue = tbxSMTPPassword.]1 


exc 
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sysBuss .AddValueByKey (sys) 

Application ("SMTPPassword") = tbxSMTPPassword. Text 

sys.SystemKey = "SendAS" 

sys.SystemValue = tbxSendAS.Text 

sysBuss .AddValueByKey (sys) 

Application ("SendAS") = tbxSendAS.Text 

' break 
Case 3 


` 如 果 有 设置 Logo 文件 


If FileUploadl.HasFile Then 
Dim fileURL As String = UploadIt (Common.GenerateFileName) 
Sys.SystemKey - "Logo" 
sys.SystemValue = fileURL 
sysBuss .AddValueByKey (sys) 
Application("Logo") = fileURL 
End If 
' break 
End Select 
End Sub 


''' <summary> 

rrr 上 传 文件 

rrr </summary> 

rrr <param name="pfileName"> 上 传 以 后 的 文件 名 </param> 

''' <returns> 上 传 以 后 的 路 径 </returns> 

Private Function UploadIt(ByVal pfileName As String) As String 

Dim fileName As String = pfileName 3 
System.IO.Path.GetExtension(FileUploadl.PostedFile.FileName) 


Dim returnName As String = fileName 

fileName = Application("PhysicalPath").ToString + "\image\" + fileName 
FileUploadl.SaveAs (fileName) 

Return returnName 


End Function 


单 击 完成 按钮 的 事件 处 理 如 例 程 7-52 所 示 。 
例 程 7-52 单 击 完成 按钮 的 事件 


Protected Sub Wizardl FinishButtonClick(ByVal sender As Object, ByVal e 


As WizardNavigationEventArgs) 


Dim sys As SystemEntity = New SystemEntity 


Dim sysBuss As SystemBussiness = New SystemBussiness 


如 果 设 置 了 系统 广告 URL 


If Not (tbxBannerURL.Text = "") Then 
Sys.SystemKey - "TopBanner" 


Sys.SystemValue = tbxBannerURL. Text 


sysBuss .AddValueByKey (sys) 

Application ("TopBanner") = tbxBannerURL.Text 

If Not (tbxBannerAlter.Text = "") Then 
sys.SystemKey = "TopBannerAlter" 
sys.SystemValue = tbxBannerAlter. Text 
sysBuss .AddValueByKey (sys) 


Application ("TopBannerAlter") = tbxBannerAlter.Text 
End If 
If Not (tbxTopBannerURL.Text = "") Then 
sys.SystemKey = "TopBannerNavigateURL" 


sys.SystemValue = tbxTopBannerURL.Text 
sysBuss .AddValueByKey (sys) 


Application ("TopBannerNavigateURL") = tbxBannerAlter.Text 
End If 
End If 
Common.RegisterAlertScript ("系统 设置 成 功 ! 请 及 时 删除 Setup.aspx 文件 ! ", 
"default.aspx", "Success", Me.Page) 
End Sub 


[LE.4.8 应 用 程序 事件 处 理 


点 用 程序 启动 时 ， 获 取 一 些 系统 的 基本 信息 ， 包 括 版 权 、 应 用 程序 物理 路 径 、Logo 


和 顶部 广告 、SMTP 服务 器 设置 信息 ， 如 例 程 7-53 所 示 。 


例 程 7-53 应 用 程序 启动 事件 


Sub Application Start (ByVal sender As Object, ByVal e As EventArgs) 
Application("OnLine") = 0 
GetCopyRight 
CheckPath 
GetLogo 
GetTopBanner 
GetSMTP 
End Sub 


获取 SMTP 服务 器 设置 如 例 程 7-54 所 示 。 
例 程 7-54 获取 SMTP 服 务 器 设置 


Sub GetSMTP () 

Dim sys As SystemEntity = New SystemEntity 

Dim sysBuss As SystemBussiness = New SystemBussiness 
sys.SystemKey = "SMTP" 

Dim isExist As Boolean = sysBuss.GetValueByKey (sys) 
If isExist Then 


Application("SMTP") = sys.SystemValue 
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Else 

Application("SMTP") = "smtp.163.com" 
End If 
Sys.SystemKey = "SMTPAccount" 


isExist = sysBuss.GetValueByKey (sys) 


If isExist Then 
Application ("SMTPAccount") = sys.SystemValue 
Else 
Application ("SMTPAccount") = "wertpoiuy" 
End If 
Sys.SystemKey = "SMTPPassword" 


isExist = sysBuss.GetValueByKey (sys) 


If isExist Then 
Application("SMTPPassword") = sys.SystemValue 
Else 
Application ("SMTPPassword") = "yuioptrew" 
End If 
Sys.SystemKey = "SendAS" 


isExist = sysBuss.GetValueByKey (sys) 
If isExist Then 
Application ("SendAS") = sys.SystemValue 
Else 
Application("SendAS") = "wertpoiuy@163.com" 
End If 
End Sub 
需要 注意 的 是 ， 其 中 的 账号 是 设计 者 申请 用 来 测试 用 的 ， 请 读者 将 信息 改 为 自己 的 
服务 器 设置 。 
获取 顶部 广告 如 例 程 7-55 所 示 。 


4127-55 获取 顶部 广告 


Sub GetTopBanner () 


Dim sys As SystemEntity = New SystemEntity 

Dim sysBuss As SystemBussiness = New SystemBussiness 
Sys.SystemKey = "TopBanner" 

Dim isExist As Boolean = sysBuss.GetValueByKey (sys) 


If isExist Then 
Application("TopBanner") = sys.SystemValue 
Else 
Application("TopBanner") = "" 
End If 
Sys.SystemKey - "TopBannerAlter" 


isExist = sysBuss.GetValueByKey (sys) 
If isExist Then 
Application ("TopBannerAlter") = sys.SystemValue 
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Else 


Application ("TopBannerAlter") 
End If 

sys.SystemKey = "TopBannerNavigateURL" 
isExist = sysBuss.GetValueByKey (sys) 


If isExist Then 
Application ("TopBannerNavigateURL") = sys.SystemValue 
Else 
Application ("TopBannerNavigateURL") = "" 
End If 
End Sub 


获取 Logo 设置 如 例 程 7-56 所 示 。 
例 程 7-56 获取 Logo 设 置 


Sub GetLogo() 
Dim sys As SystemEntity = New SystemEntity 


Dim sysBuss As SystemBussiness - New SystemBussiness 


Sys.SystemKey - "Logo" 
Dim isExist As Boolean = sysBuss.GetValueByKey (sys) 


If isExist Then 

Application("Logo") = sys.SystemValue 
Else 
Application("Logo") = 
End If 
End Sub 


应 用 程序 物理 路 径 如 例 程 7-57 所 示 。 
例 程 7-57 应 用 程序 物理 路 径 设置 


Sub CheckPath () 
Dim sysBuss As SystemBussiness = New SystemBussiness 


Dim sys As SystemEntity = New SystemEntity 

sys.SystemKey = "PhysicalPath" 

sysBuss.GetValueByKey (sys) 

Dim strPhsicalPath As String = sys.SystemValue 

If strPhsicalPath Is Nothing Then 
sys.SystemValue = Server.MapPath ("~/") 
sysBuss .AddValueByKey (sys) 


Else 


If Not (strPhsicalPath = Server.MapPath("~/")) Then 


sys.SystemValue = Server.MapPath("~/") 
sysBuss .AddValueByKey (sys) 
End If 
End If 
Application("PhysicalPath") = Server.MapPath("-/") 
End Sub 
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获取 系统 版 权 如 例 程 7-58 所 示 。 


例 程 7-58 获取 系统 版 权 信 息 


Sub GetCopyRight () 

Dim sys As SystemEntity = New SystemEntity 

Dim sysBuss As SystemBussiness = New SystemBussiness 
Sys.SystemKey - "BBSName" 


Dim isExist As Boolean = sysBuss.GetValueByKey (sys) 
If isExist Then 


Application("BBSName") = sys.SystemValue 
Else 
Application("BBSName") = "BBS" 
End If 
End Sub 


系统 栏目 是 前 台 几 乎 各 个 页 面 都 要 用 到 的 ， 应 该 也 读 入 Application 中 ， 这 样 可 以 加 
快 系统 速度 。 本 例 在 设计 中 没有 加 入 系统 栏目 ， 读 者 可 以 自己 来 实现 。 


[07. 4.9 实现 管理 端 表示 层 
管理 端的 母 版 页 如 图 7-33 所 示 。 


Vivi 2012-2013c 版 权 
学- 


图 7-33 ”管理 端的 母 版 页 


页 面 载 入 时 ， 判 断 用 户 是 否 


录 ， 再 判断 是 否 是 管理 员 ， 如 例 程 7-59 所 示 。 
例 程 7-59 页 面 载 入 事件 


Protected Sub Page Load(ByVal sender As Object, 
If Not IsPostBack Then 
` 若 用 户 还 没有 登录 
If Session("User") Is Nothing Then 
Common.RegisterAlertScript (" 您 还 没有 登录 ! ", 


ByVal e As EventArgs) 
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"Login.aspx?fromurl-" + 


Server.HtmlEncode(Request.Url.ToString), "NotLogin", Me.Page) 


Return 
Else 
If Not (CType(Session("Role"), RoleEntity).RoleName = "管理 员 ") Then 
Common.RegisterAlertScript ("MA TP Him! ", "../default.aspx", 


"NotAdmin", Me.Page) 
Return 
imjoxol E 
End rf 
Bnd) IPSE 
Me.Page.Title = Application("BBSName").ToString + "一 后 台 管 理 系统 " 
End Sub 
C1) 生成 验证 码 控 件 ValidateCodeControl.ascx。 生 成 验证 码 控 件 在 页 面 载 入 时 ， 首 
先 调用 GenerateCheckCode 方法 生成 验证 串 , 之 后 调用 CreateCheckCodeImage 方法 ， 将 
验证 串 生 成 为 图 片 ， 生 成 随机 串 的 过 程 如 例 程 7-60 所 示 。 


例 程 7-60 生成 随机 串 


y 


''' <summary> 
rrr 随机 生成 字符 中 
''' </summary> 
rrr «param name-"codeCount"» ^F 4j 4 /param» 

''' Xparamname-"isSaveCookies"»JÉTfN COOKIES 中 ,否则 存 入 SESSION T «/param» 


pun 


''' <returns></returns> 第 
Private Function GenerateCheckCode (ByVal codeCount As Integer, ByVal - 
isSaveCookies As Boolean) As String 章 
Dim number As Integer 
Dim code As Char E 
Dim checkCode As String - String.Empty o 
Dim random As System.Random - New Random AR 
: k Z2x 
Dim i As Integer = 0 Au 
yy 
While i < codeCount fil 
| 


number = random.Next 
If number Mod 2 = 0 Then 
code = CType(("O"C + CType((number Mod 10), Char)), Char) 


Else 
code = CType(("A"C + CType((number Mod 26), Char)), Char) 
End If 
checkCode += code.ToString 
System.Math.Min (System.Threading.Interlocked.Increment (i),i-1) 

End While 

If isSaveCookies Then 
Response.Cookies.Add(New HttpCookie ("CheckCode", checkCode)) 


Else 
Page.Session.Contents ("CheckCode") = checkCode 
End If 
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Return checkCode 


End Function 


生成 随机 串 之 后 ， 需 要 将 随机 串 生成 为 图 片 ， 如 例 程 7-61 所 示 。 
例 程 7-61 根据 随机 码 生 成 图 片 


''' <summary> 
Qu iem 


''' </summary> 


''' <param name="checkCode"></param> 


Private Sub CreateCheckCodeImage (ByVal checkCode As String) 


If checkCode Is Nothing OrElse checkCode.Trim - String.Empty Then 
Return 

End If 

Dim image As System.Drawing.Bitmap - New 
System.Drawing.Bitmap(CType(Math.Ceiling((checkCode.Length *  12.5)), 
Integer), 22) 

Dim g As Graphics = Graphics.FromImage (image) 

Try 
` 生 成 随机 生成 器 


Dim random As Random = New Random 


N= ad sia 
` 清 空 图 片 背景 色 


g.Clear (Color.White) 
` 画 图 片 的 背景 噪音 线 


Dim i As Integer = 0 
While i « 25 
Dim x1 As Integer = random.Next (image.Width) 
Dim x2 As Integer - random.Next (image.Width) 
Dim yl As Integer = random.Next (image.Height) 
Dim y2 As Integer - random.Next (image.Height) 
g.DrawLine(New Pen(Color.Silver), xl, yl, x2, y2) 


System.Math.Min (System. Threading. Interlocked.Increment (i),i-1) 


End While 
Dim font As Font = New System.Drawing.Font ("Arial", 12 
(System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic)) 
Dim brush As System.Drawing.Drawing2D.LinearGradientBrush - New 
System.Drawing.Drawing2D.LinearGradientBrush (New Rectangle(0, OF 


image.Width, image.Height), Color.Blue, Color.DarkRed, 1.2F, True) 
g.DrawString(checkCode, font, brush, 2, 2) 


` 画图 片 的 前 景 噪音 点 
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Dim i As Integer = 0 
While i « 100 
Dim x As Integer - random.Next (image.Width) 


Dim y As Integer - random.Next (image.Height) 
image.SetPixel(x, y, Color.FromArgb (random.Next) ) 


System.Math.Min (System. Threading. Interlocked.Increment (i),i-1) 
End While 
` 画 图 片 的 边框 线 
g.DrawRectangle(New  Pen(Color.Silver), 0, 0,  image.Width - 1, 
image.Height - 1) 


Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream 
image.Save(ms, System.Drawing.Imaging.ImageFormat.Gif) 
Response.ClearContent 
Response.ContentType = "image/Gif" 
Response.BinaryWrite (ms.ToArray) 
Finally 
g.Dispose 
image.Dispose 
End Try 
End Sub 


最 后 在 页 面 载 入 时 调用 对 应 方法 。 在 完成 控件 之 后 ， 将 控件 拖 入 页 面 Validator'aspx 


即 可 实现 验证 码 的 生成 。 i 
(2) 管 理 端 登录 控件 AdminLoginControl.ascx。 管 理 端 登录 控件 组 成 如 图 7-34 所 示 ， 

其 中 Image 控件 的 源 设 置 为 validator.aspx。 p 
p APES zs 

mea. Fo o Es] eJ 

em F— z 

WEB: F E 系 

FOSTER. 2 

。 错误 信息 2 ET 

UserName] [iPasword][fvValidateCode] 3k 

例 


图 7-34 管理 端 登录 控件 


单 击 登 录 按钮 时 首先 判断 输入 的 验证 码 和 Session 中 保存 的 是 否 一 致 ， 若 不 一 致 则 
提示 错误 并 重新 导航 到 登录 页 (这样 做 可 以 保证 每 次 的 验证 码 都 不 相同 ), 阁 验 证 人 码 一 到 
则 使 用 用 户 实体 和 用 户 业 务 来 判断 登录 信息 是 否 正确 ， 若 不 正确 则 返回 ， 车 登 录 信 息 正 
确 则 使 用 角色 实体 和 业务 判断 是 否 管理 员 ， 若 不 是 提示 错误 并 重 定 问 到 前 人 台 首 页 ; 若 一 
切 检查 通过 ， 则 进入 管理 端 首页 ， 代 码 请 参见 本 书 附带 光盘 中 的 代码 。 

在 Login.aspx 页 面 使 用 该 控件 即 可 实现 管理 端的 登录 页 面 。 
(3) 管理 端 首页 defaultaspx。 管 理 端 首 页 显示 一 些 欢迎 信息 ， 在 页 面 载 入 时 将 标 
签 设 置 成 Application 中 保存 的 系统 名 称 ， 如 图 7-35 所 示 。 


a 
ii: 
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欢迎 使 用 lblBBSMName] 后 台 管理 系统 ， 请 选择 相应 的 功能 进行 管理 


图 7-35 ”管理 端 欢迎 


也 可 以 在 页 面 显 示 一 些 服务 器 配置 信息 等 ， 这 些 都 很 简单 ， 读 者 有 兴趣 可 以 自己 实 
现 一 下 。 
(4) 左 导 航 菜单 控件 LeftMenu.ascx。 左 导航 菜单 如 图 7-36 所 示 。 
单 击 “注销 ”按钮 和 时， 将 Session 清空 ， 并 重 定向 到 登录 页 面 。 
(5) 修改 密码 控件 ChangePasswordControl.ascx。 修 改 密码 控件 如 图 7-37 所 示 。 
单 击 修 改 密码 使 用 用 户 实体 ， 调 用 Login 方法 判断 旧 密 码 是 否 正 确 ， 若 不 正确 提示 
并 返回 上 一 步 ， 若 正确 则 进行 修改 ， 提 示 并 返回 登录 页 面 。 
将 该 控件 拖 入 ChanagePassword.aspx 页 面 即 可 实现 修改 密码 页 面 。 
(6) 栏目 管理 页 面 Manageltem.aspx。 该 页 面 由 两 个 控件 组 成 : RootItemListControl. 
ascx 和 SubItemListControl.ascx， 如 图 7-38 所 示 。 


修改 密码 
= 
=e Ben. [P WASH 
角色 管理 新 密码 : n T5 e NITET | 
ihi 5 
mer auem f PLA RRR 
添加 管理 员 哺 再 次 辆 入 新 密码 | 
ana wi 
图 7-36 ” 左 导航 菜单 图 7-37 修改 密码 控件 
E 
" 
'tentPlacertaidert (ERX) 
oe 一 级 栏目 列表 
= M EN 
EE E n A 
— EY miae iH 
itio BAM RUE Er 
ZUERA ObjectDataSource - ObjectDataSource! 
HERR (点 击 栏目 名 称 次 看 子 栏 目 或 法 加 一 级 栏目 ) 
[1bliteninfo] 
栏目 名 称 tB "m 
fug 数据 绑 宇 gui 
SRE AURIE S 
H RIRE E 
mur Dura EE 
iude iuge p 
t dex) ue [zi ) 
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(7) 一 级 栏目 列表 控件 RootItemListControl.ascx。 从 图 7-37 可 以 看 出 ， 该 控件 由 
一 个 GridView、 一 个 ObjectDataSource 控件 和 一 个 超级 链接 组 成 。 其 中 ObjectDataSource 
的 对 象 选择 ItemBussiness, SELECT 方法 选择 GetRootltem. 

(8) 二 级 栏目 列表 控件 SubItemListControl.ascx。 从 图 7-22 可 以 看 出 该 控件 由 一 个 


Label 控件 、 一 个 GridView 和 一 个 超级 链接 组 成 。GridView 控件 的 列 设置 和 一 级 栏目 基 
本 相同 ， 在 此 不 再 蒙 述 。 
页 面 载 入 时 ， 首 先 判 断 是 否 有 itemid 传 入 ， 若 没有 则 ， 将 控件 设置 为 不 可 见 ， AA 
ID 则 首先 判断 栏目 是 否 有 数据 ， 若 没有 则 标签 提示 没有 子 栏目 ， 否 则 设置 栏目 名 称 。 
(9) 添加 栏目 控件 AddItemControl.ascx。 添 加 栏目 控件 的 控件 组 成 如 图 7-39 所 示 。 
页 面 载 入 时 首先 判断 栏目 ID. 是 否 有 ， 若 没有 则 认为 是 添加 一 级 栏目 ， 若 有 则 判断 
ID 是 否 正确 ， 若 正确 则 设置 标签 。 
单 击 修改 按钮 和 时， 判断 参数 itemid 是 否 存在 ， 若 存在 则 设置 栏目 实体 的 ParentID， 
设置 对 应 的 字段 ， 调 用 栏目 业务 的 AddItem 方法 。 之 后 提示 添加 成 功 是 否 继续 的 信息 。 
(10) 修改 栏目 控件 ModifyItem.ascx。 该 控件 的 组 成 和 添加 栏目 相同 ， 因 此 不 再 截 
图 。 页 面 载 入 时 ， 首 先 判断 栏目 ID 是 否 有 效 ， 之 后 再 将 栏目 信息 读 取 到 相应 控件 。 
单 击 修改 按钮 ， 使 用 栏目 业务 的 ModifyItem 方法 修改 。 
C11) 用 户 管理 页 面 ManageUser.aspx。 该 页 面 由 用 户 列表 控件 和 用 户 详 细 资 料 控件 
组 成 。 页 面 本 身 没 有 做 任何 处 理 。 
(12) 用 户 列表 控件 MemberListControl.ascx。 该 控件 的 组 成 如 图 7-40 所 示 。 


Poke 
ES 
~ 
注册 用 户 列表 章 
注册 时 间 上 次 登录 
SURRE 数据 绑 定 数据 绑 定 删除 wW 
数据 绑 定 数据 绑 定 数据 绑 定 删除 eJ 
数据 绑 定 数据 绑 定 ZURE 删除 n 
数据 绑 定 数据 绑 定 SEE Tl 
SURRE 数据 绑 定 数据 绑 定 删除 系 
[lblItemTnfo] SESE 数据 绑 定 SURE 删除 dz 
栏目 名 称 最 多 50 个 字 m ped ero 定 a “al 
DU RSA? RHE 数据 绑 定 RRE MER S 
xij a = Kur SESE BRIE ME ji 
a oe 数据 绑 定 数据 绑 定 数据 绑 定 miè 
[RequiredFieldValidatorl][RequiredFieldValidator2] 12 
: Tane i ObjectDataSource - ObjectDataSourcel 
图 7-39 添加 栏目 控件 图 7-40 ”用 户 列 表 控 件 


其 中 ObjectDataSource 的 对 象 选择 UserBussiness, SELECT 方法 选择 GetUserList， 
删除 函数 选择 DeleteUserByID(Int32 UserID). 
(13) 用 户 详细 资料 控件 ShowMemberDetailControlascx。 该 控件 的 组 成 如 图 7-41 
所 示 。 
其 中 ObjectDataSource 是 用 于 绑 定 角色 列表 用 的 。 业 务 对 象 选择 RoleBussiness， 
SELECT 方法 选择 GetRoleList. 
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用 户 详细 资料 

RP. lblUserName] 
是 否 激活 ， lblActived] 
Email: lblEmail] 
创建 时 间 ， lblCreateDate] 
最 后 登录 : lblLastLogin] 
JERI: lblSex] 

真实 姓名 ， lblTrueName] 
dett: lblAddress] 
MERS: č FRSE 
发 文 数 ， lblPosted] 
回复 文章 数 ， lblReposted] 


修改 | 取消 


ObjectDataSource - ObjectDataSourcel 


图 7-41 用 户 详 细 资 料 控件 
页 面 载 入 时 ， 首 先 判 断 是 否 有 UserID A, FRA, WESI, AA. WAE 
单 击 修改 按钮 时 ， 使 用 用 户 业 务 的 ModifyRoleByID 方法 对 用 户 的 角色 进行 修改 。 
该 过 程 较 为 简单 ， 在 此 不 再 列 出 。 
(14) 角 色 管 理 页 面 ManageRole.aspx。 该 页 面 由 角色 列表 控件 和 修改 角色 控件 组 成 ， 
本 身 不 包含 处 理 代码 。 
(155 角色 列表 控件 RoleManageControl.ascx。 和 角色 列表 控件 组 成 如 图 7-42 所 示 。 
其 中 ObjectDataSource 控件 业务 对 象 选择 RoleBussiness, SELECT 方法 选择 


GetRoleList. 

(16) 修改 角色 控件 ModifyRoleControl.ascx。 该 控件 组 成 如 图 7-43 所 示 。 
角色 管理 
”角色 名 称 修改 权限 
Wigan: ERR 修改 角色 
"HO -— s Beg [Rs 
rd EUR 修改 ] 取消 | 
preeee— ObjectDataSource [RequiredFieldValidatorl] 

。 错误 消息 1. 
(点 击 角色 名 已 修改 名 称 或 者 添加 角色 ) 。 错 误 消 息 2. 
图 7-42 角色 管理 控件 图 7-43 ”修改 角色 控件 


页 面 载 入 时 首先 判断 角色 ID. 是 否 有 效 ， 若 没有 则 控件 不 可 见 ， 否 则 设置 文本 框 内 
容 。 单 击 修改 按钮 ， 调 用 角色 业务 的 ChangRoleName 方法 ， 修 改 成 功 后 提示 信息 ， 并 返 


md 


回 角色 列表 页 。 

(17) 添加 角色 页 面 AddRole.aspx。 添 加 角色 页 面 由 添加 角色 控件 组 成 ， 本 身 不 含 
处 理 代码 。 

(18) 添加 角色 控件 AddRoleControl.ascx。 该 控件 和 修改 角色 控件 的 组 成 相同 ， 当 


单 击 修改 按钮 时 ， 调 用 角色 业务 的 AddRole 方法 进行 添加 ， 过 程 较为 简单 ， 在 此 不 作 资 


日系 统 设置 控件 组 成 ， 本 身 不 含 


juu! 


(19) 系统 设置 页 面 ManageSystem.aspx。 该 页 对 


LQ xe3deu) 
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处 理 代码 。 
(200 系统 设置 控件 SystemControl.ascx。 该 控件 的 组 成 如 图 7-44 所 示 。 


系统 设置 ——— 

论坛 名 称 if :Re Ai: jeld... m equiredField... 

SIMTP 服 务 器 [iSi SITRA S] 

SITP 账 户 = ! 

SITP 密 码 请 输入 SHTP 密 码 ! 

发 件 人 地 址 ; | 请 输入 发 件 人 地 址 ! 

系统 Logo 查看 

上 传 新 Logo | 

顶部 广告 图 片 URL 请 输入 导航 图 片 URLI 

顶部 广告 导航 URL | 请 输入 导航 0RLI 

顶部 广告 兰 代 文字 请 输入 疹 代 文字 ! 
图 7-44 系统 设置 


页 面 载 入 时 ， 首 先 绑 定 对 应 设置 ， 单 击 修改 按钮 时 ， ~ 二 程 和 设置 页 面 儿 乎 一 

羊 ， 不 同 的 是 把 所 有 的 过 程 集中 在 一 步 来 做 ， 在 此 不 作 袭 
(21) 添加 管理 员 页 面 AddAdmin.aspx。 该 页 面 | A Eae AST 
处 理 代 码 。 
(22) 添加 管理 员 控 件 AddAdminControlascx。 该 控件 组 成 如 图 7-45 所 示 。 


TE 


添加 管理 员 
管理 员 用 户 名 ， 请 输入 用 户 名 ! 
密码 : 
确认 密码; 


添加 | 取消 


图 7-45 添加 管理 员 
单 击 添加 按钮 时 ， 首 先 调用 角色 业务 的 IsRoleNameExist 方法 来 获取 管理 员 角 色 的 
ID, 之 后 设置 相应 信息 ， 调 用 用 户 业 务 的 ISUseNameExist 方法 判断 是 否 已 经 有 若 
没有 ， 则 调用 Register 方法 来 注册 用 户 ， 并 保存 注册 码 ， 之 后 调用 SetUserAcitved 方法 
将 用 户 激活 。 


BHS sqq Le 
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LL. 4.10 实现 论坛 前 台 表 示 层 


(1) 论坛 首页 Default.aspx。 该 页 面 使 用 MasterPage.master 作为 母 版 页 ， 另 外 使 用 
首页 栏目 列表 控件 。 本 身 没 有 处 理 代 码 。 

(2) 首页 栏目 列表 控件 HomeItemControl.ascx。 该 控件 由 一 个 DataList 和 一 个 
ObjectDataSource 组 成 ， 如 图 7-46 所 示 。 
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加 ataListl - 项 模板 
ItemTemplate 
[ByperLink2] 

F 数据 绑 定 数据 绑 定 
数据 绑 定 HERE 
RERE 数据 绑 定 
数据 绑 定 HERE 
RERE HERE 


ObjectDataSource - ObjectDataSource? 


"lb jectDateSeurce - ObjectDataSource! 


图 7-46 首页 栏目 列表 控件 
DataList 的 列 设置 如 例 程 7-62 所 示 。 


例 程 7-62 DataList 的 列 设置 


«asp:DataList ID="DataList1" runat="server" 
DataSourceID-"ObjectDataSourcel" Width="650px"> 
<ItemTemplate> 
«table border="1" cellpadding="3" cellspacing="0" width="648" 
style="text-align: left"> 
a 
«td» 
«asp:HyperLink ID-"HyperLink2" runat-"server" 
NavigateUrl='<%#Eval ("ItemID", "ShowItem.aspx?itemid={0}")%>'> 
<%S#Eval ("ItemName") %> 
</asp:HyperLink> 
</td> 
</tr> 
<a 
<td> 
«ucl:SubItemControl ID-2"SubItemControl1" 
ItemID='<%#Eval ("ItemID") %>'/> 
</td> 
</tr> 
</table> 
</ItemTemplate> 
</asp:DataList> 


C23 

= 从 例 程 可 以 看 出 ， 使 用 了 子 栏 目 列表 控件 来 显示 子 栏目 。 

A) (3) 子 栏目 列表 控件 SubItemControl.ascx。 该 控件 的 组 成 如 图 7-47 所 示 。 
O 

ET 

CD 


runat="server" 


该 控件 有 一 个 栏目 ID 属性 ， 在 设置 属性 的 同时 对 DataList 进行 绑 定 。 
(4) 首页 登录 控件 HomeLoginControl.ascx。 该 控件 组 成 如 图 7-48 所 示 。 
页 面 载 入 时 首先 判断 是 否 已 经 登录 ， 若 是 则 不 显示 该 控件 ， 单 击 登 录 按钮 时 ， 使 ) 


用 户 业务 的 Login 方法 ， 若 登录 失败 则 提示 信息 并 返回 上 一 步 ; 若 登录 成 功 则 将 User Sc 


FS 
Co 体 保存 在 Session 中 ， 之 后 根据 用 户 实 体 的 角色 ID, iA fi € Mv HY 
c 


GetRoleNameByRoleID 方法 来 获取 角色 名 称 ， 将 Role 实体 也 保存 在 Session 中 。 然 后 判 


其 来自 哪里 ， 若 没有 指定 fromurl 则 导向 请 求 页 ， 和 否则 导向 对 应 页 。 


PbataList2 - 项 模板 


ET FPS. | 密码 , | uF 注册 忘记 密码 
[EyperLink1] [Labet1] [RequiredFieldValidatorl][RequiredFieldValidator2] 
- HRS 1. 
WhjecthataSource - ObjectDateSource2 。 错误 消息 2。 
图 7-47 子 栏目 列表 控件 图 7-48 首页 登录 控件 


(5) 顶部 菜单 控件 TopMenuControl.ascx。 该 控件 组 成 如 图 7-49 所 示 。 


[lblUserInfo] ”修改 资料 ”注销 登录 
图 7-49 ”顶部 菜单 控件 
页 面 载 入 时 ， 首 先 根据 Session 里 的 内 容 判 断 用 户 是 否 登录 ， 若 没有 登录 则 将 自己 
隐藏 知已 登录 则 绑 定 对 应 信息 。 
(6) 注册 页 面 Registeraspx。 注 册页 面 由 注册 控件 组 成 ， 本 身 不 含 代 码 。 
CI) 注册 控件 RegisterControl.ascx。 该 控件 由 一 个 Wizard 控件 组 成 ， 图 7-50 和 图 
7-51 显示 了 Wizard 控件 注册 页 面 的 两 个 步 又 : 
页 面 载 入 时 , 为 超级 链接 控件 添加 客户 端 事件 , 代码 请 参见 本 书 附带 光盘 中 的 代码 。 


用 户 注册 
填写 基本 资料 
HPE 


a, 


BARAT ur gi 密码 ! 两 次 输入 窑 
Si: 邮箱 格式 不 正确 邮箱 雹 址 不 能 为 空 ! 您 输入 的 
REACH | CRC 
性 别 ， eA 玉女 
DARET rd 
PEST 
联系 方式 ， 
密码 保护 问题 ， 
SUMTIPHX. 


图 7-50 注册 页 面 第 一 步 


注册 成 功 ! 已 经 将 激活 码 发 到 您 福 册 的 邮箱 ， 请 尽快 激活 ! 


图 7-51 注册 页 面 第 二 步 


单 击 完成 按钮 时 ， 首 先 检查 用 户 名 是 否 存 在 ， 若 存在 ， 则 提示 错误 并 返回 上 一 步 ; 
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若 不 存在 ， 则 使 用 用 户 业 务 层 的 Register 方法 将 资料 入 库 ， 同 时 保存 激活 码 ， 之 后 调用 


Common 类 的 SendMail 方法 将 激活 链接 发 送 到 用 户 注册 的 邮箱 中 。 
(8) 用 户 激活 页 面 Activation.aspx。 该 页 面 由 激活 控件 组 成 ， 本 身 没 有 处 理 代 码 。 
(9) 用 户 激活 控件 ActivationControl.ascx。 该 控件 组 成 如 图 7-52 所 示 。 


[lblInfo] 
如 果 您 的 浏览 


Al7-52 ”激活 控件 


页 面 载 入 时 ， 首 先 判 断 激活 信息 是 否 完整 ， 千 不 完整 则 将 提示 信息 设置 为 信息 不 完 

整 ， 若 完整 则 调用 用 户 业 务 的 SetUserActived 方法 来 激活 用 户 ， 根 据 执行 的 结果 分 别 设 
置 提示 标签 。 
C100 检查 用 户 名 是 否 重复 页 面 CheckUser.aspx。 该 页 面 由 一 个 标签 和 一 个 超级 链 

接 控件 组 成 ， 页 面 载 入 时 ， 首 先 判断 是 否 提供 用 户 名 ， 若 没有 则 提示 错误 ;， 若 有 则 使 用 
] 户 业务 的 RUserNameExist 方法 进行 判断 ， 根 据 判断 的 结果 分 别 显示 不 同 的 提示 。 
C11) 用 户 密码 保护 页 面 UserProtection.aspx » 12 91 LÀ NoTop.master 为 母 版 页 ， 使 用 


一 个 Wizard 控件 来 实现 找 回 密码 的 不 同步 又 ， 如 图 7-53 一 图 7-55 所 示 。 


— 


pal 


ContentPlaceHolderi (Eis 3C) 85 pWizard e Wizard 


第 一 步 ， 请 输入 您 的 用 户 名 请 输入 您 的 用 户 名 ! 该 用 户 名 不 存在 ! D 


下 二 步 


图 7-53 ”密码 保护 第 一 步 


asp:Wizard#Wizardl 
第 二 步 ， 请 填写 您 的 密码 保护 : 
密码 提示 问题 : | [lblQuestion] 


您 的 回答 ， 回答 错误 ! 请 输入 您 的 答案 ! 
smk- | [T 


图 7-54 ”密码 保护 第 二 步 


= T EF, PRED 
请 输入 新 密码 ， o 请 输入 密码 ! 两 次 输入 密码 不 一 致 


请 重新 输入 新 密码 ， 请 再 次 输入 密码 ! 
返回 上 一 步 | 


图 7-55 ”密码 保护 第 三 步 

第 一 步 单 击 “ 下 一 步 ” 时 ， 判 断 用 户 名 是 否 存 在 ， 若 存在 则 转 入 第 二 步 。 第 二 步 载 
入 时 获取 密码 保护 问题 ， 提 示 输 入 答案 ， 阁 答案 正确 则 转 入 第 三 步 。 

单 击 “修改 ”按钮 ， 首 先 密码 保护 的 第 一 步 和 第 二 步 是 否 正确 ， 若 不 是 则 将 页 面 重 
定向 到 UserProtection.aspx 页 面 的 第 一 步 ， 若 是 则 使 用 eNewsUser 实体 的 
ChangePasswordByUserName 方法 。 


LQ xe1deu) 


374 


(12) 用 户 登 录 页 


的 页 面 时 ， 需 要 转 到 i 


H Login.aspx。 在 有 些 时 候 ， 如 果 } 


Xt 


面 进行 处 理 。 该 页 面 


(13) 用 户 登 录 控 
和 前 面 讲 的 登录 过 程 十 分 相 14 


理 代码 。 
(150 用 户 详 细 


用 户 登 录 
RP: 
密 码 ， 


登录 | ”注册 ”忘记 密码 


[rfvUserName] 


。 错误 消息 1。 
。 错 误 消息 2。 


[rfvPasword] 


图 7-56 “登录 控件 


该 控件 在 载 入 时 ， 首 , 
经 登录 则 判断 传递 参数 userid 的 有 效 性 ， 若 无 效 则 重 定向 至 


I. 


(14) 查看 用 户 信息 页 


TUF 


reum 


PS 
inm 


AIT) 


fl UserInfo.aspx. i Ui ThI i 


^t LoginControl.ascx。 该 控件 组 成 如 
DL, ZELLAVE EIR 


1P 4 BE 
由 登录 控件 组 成 ， 本 身 不 含 处 理 代码 。 
7-56 所 示 。 登 录 人 处理 过 程 


] 户 查看 了 非 登 录 | 


xi 


牛 UserInfoControl.ascx。 该 控件 组 成 如 医 


[lblUser] 的 详细 资料 
用 户 名 : [lblUserName] 
邮箱 : [lblEmail] 
TESI: [lblSex] 
发 表 主 题 数 ， [1blPosted] 
回复 主题 数 : [1blRePosted] 
图 7-57 
户 是 否 已 经 登录 ， 若 没有 见 


nu 


EE 


(16) 修改 用 户 信息 页 ModifyInfo.aspx。 该 页 面 昌 


含 处 理 代码 。 


(17) 修改 用 户 信息 控件 ModifyInfoControl.ascx。 该 控件 组 成 如 图 


页 面 载 入 时 首先 判断 是 否 登录 ， 若 没有 则 重 定向 到 登录 


信息 绑 定 到 对 应 控件 。 


单 击 修改 按钮 时 ， 若 没有 ] 


改 资 料 。 若 设置 了 新 密码 则 调用 ModifyPassword 方法 
示 重 新 登录 。 


(18) 未 登录 提示 控件 NotLoginControl.ascx。 该 控件 组 成 如 图 


SH. 


再 次 输入 密码 ， 


Email: 


是 否 公开 邮箱 : 


修改 用 户 资 料 


两 次 输 入 密码 不 一 致 ! 
请 输入 Email 


真实 姓名 : 
联系 方式 : 


密码 保护 问题 


密码 保护 答案 ， 


修改 | 取消 | 


图 7-58 ”修改 用 户 信息 控件 


面 信息 控件 组 成 ， 本 里 不 含 处 


有 效 则 绑 定 用 户 


修改 用 户 信 息 控件 组 成 ， 本 身 不 


7-58 所 示 。 


ur Cu 
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填写 密码 输入 框 ， 首 先 使 用 ) 
修改 密码 ， 并 将 Session 清 


t. 若 已 经 登录 则 将 用 户 


此 务 的 ModifyInfo 方法 修 


空 并 提 
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对 不 起 ， 您 还 没有 登录 ! 点 击 契 里 登录 或 者 点 击 牙 里 注册 | 


图 7-59 未 登录 控件 


页 面 载 入 时 设置 超级 链接 的 NavigateURL 属性 代码 。 

(19) 显示 栏目 页 面 ShowItem.aspx。 该 页 面 由 一 些 用 于 导航 的 超级 链接 控件 、 栏 目 
文章 列表 控件 和 二 级 栏目 列表 组 成 。 页 面 载 入 时 ， 首 先 判断 是 和 否 传递 有 效 ID， 若 没有 则 
提示 错误 。 若 有 有 效 栏目 了 DP， 则 先 判断 栏目 是 否 一 级 栏目 ， 若 是 则 设置 超级 链接 控件 ， 
同时 设置 二 级 栏目 列表 控件 可 见 ， 若 不 是 则 设置 二 级 栏目 列表 控件 不 可 见 ， 并 设置 超级 
链接 控件 。 

(200 栏目 文章 列表 控件 ItemArticleControlascx。 该 页 面 由 一 个 超级 链接 、 一 个 
GridView， 一 个 ObjectDataSource 控件 组 成 。 其 中 ObjectDataSource 的 业务 层 对 象 设置 
为 ArticleBussiness, SELECT 方法 设置 为 GetPostByItemID(Int32 pItemID)， 参 数 源 设置 
QueryString, QueryStringField 设置 为 itemid。 

页 面 载 入 时 ， 设 置 HyperLink 控件 的 Navigate 属性 。 
(21) 显示 主题 页 面 ShowPost.aspx。 该 页 面 由 若干 用 于 导航 的 超级 链接 控件 、 未 登 
录 提 示 控 件 、 显 示 主 题 控 件 和 回复 文章 控件 组 成 ， 如 图 7-60 所 示 。 
页 面 载 入 时 ， 首 先 判断 文章 ID 是 否 合法 ， 若 不 合法 ， 则 提示 并 返回 首页 ， 若 合法 ， 
则 使 用 文章 业务 的 GetContentByID 方法 获取 文章 内 容 ， 在 使 用 获取 的 栏目 ID 设置 对 应 
的 导航 控件 ， 最 后 根据 是 否 登录 设置 显示 哪些 控件 和 隐藏 哪些 控件 。 

(22) 展示 主题 文章 控件 ShowPostControl.ascx。 该 控件 由 一 个 GridView 和 一 个 
ObjectDataSource 控件 组 成 ，ObjectDataSource 控件 的 业务 对 象 选 择 ArticleBussiness， 
SELECT 方法 选择 GetArticleByPostID(Int32 pPostID)， 参 数 源 设置 为 QueryString， 
QueryStringField 设置 为 postid， 如 图 7-61 所 示 。 


— 


| .Con jaceHokdert (ENTE X) = - 
DEZ E m >> (nikIsSub]»» [hlklrtenName] [lbllsArticle] 
| URE, MARR! 点 击 这 里 登录 或 者 点 击 这 里 注册 


| objectpatasource - ObjectDataSource! 
| 
| 
| 


ET I 请 给 入 主题 ! 
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区 riayiewl - Column[0] 


ItenTenplate 


{fibtTitie] 


[Ib Writer] [IbIPostTime] 


[iblContent] 


[lblLastModified] 


ObjectDataSource - ObjectDataSourcel | 


图 7-61 展示 主题 文章 控件 


(23) 展示 文章 内 容 控 件 ShowPostByIDControl.ascx。 该 控件 的 组 成 如 图 7-62 所 示 。 


[lblTitle] 
[lblWriter] [lblPostTime] 


[lblContent] 


查看 附件 
(1b1LastModi fied] 


图 7-62 控件 组 成 
该 控件 有 很 多 属性 ， 根 据 这 些 属性 要 设置 对 应 控件 的 属性 ， 单 击 删除 按钮 时 ， 使 用 


附件 实体 和 文章 实体 来 保存 关于 附件 和 文章 的 属性 ， 之 后 调用 文章 业务 的 DeletePost 方 第 
法 将 文章 删除 。 E 
(24) 发 表 文章 页 面 Postaspx。 该 页 面 由 一 个 未 登录 提示 控件 和 一 个 发 布 文章 控件 = 
组 成 。 w 
(25) 发 布 文章 控件 PostControl.ascx。 该 控件 组 成 如 图 7-63 所 示 。 7: 
ł 请 输入 主题 ! 系 
5 HATE " 5 
K 
例 
内 容 
了 | 
ME — —  — 3m... | 
EU ma] 


图 7-63 发 布 主题 控件 


页 面 载 入 时 ， 首 先 判断 栏目 ID 是 否 合法 ， 若 不 合法 则 提示 并 转向 首页 。 
T 


附件 


Sm 


和 发布 按钮 ， 设 置 文章 实体 ， 若 有 附件 同时 设置 附件 实体 ， 上 传 附件 并 调 


< 


cu 


377 


ASP.NET 4.0 5 Dreamweaver CS6 经 典 网 站 开发 从 入 门 到 精通 


业务 的 AddAttachment 方法 保存 附件 URL; 之 后 使 用 文章 业务 的 AddPost 方法 来 发 布 文 


章 。 
(26) 修改 文章 页 面 EditPost.aspx。 该 页 面 由 一 个 修改 文章 控件 和 一 个 未 登录 提示 
控件 组 成 。 
(27) 修改 文章 控件 EditPostControl.ascx。 该 控件 的 组 成 如 图 7-64 所 示 。 
修改 新 主题 
主题 请 输入 主题 ! 
E 
内 容 
xl 
修改 | 取消 | 


图 7-64 ”修改 文章 控件 
页 面 载 入 时 ， 首 先 判断 文章 ID 是 否 合 法 ， 之 后 使 
内 容 ， 并 绑 定 到 控件 。 
单 击 修改 按钮 ,根据 内 容 设置 文章 实体 ， 调 用 文章 业务 的 ModifyArticle 方法 修改 内 


文章 实体 和 文章 业务 获取 文章 


T 


i 


NL 
人 
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(28) 回复 文章 控件 ReplyControl.ascx。 该 控件 组 成 和 修改 文章 一 样 。 当 单 击 回复 
时 ， 使 用 文章 业务 的 AddRepost 方法 来 添加 回复 。 

(29) 显示 附件 页 面 ShowAttachment.aspx。 访 页面 用 于 显示 附件 内 容 ， 有 一 个 未 登 
录 提 示 探 件 ， 页 面 载 入 时 ， 首 先 判断 是 否 已 经 登录 ， 若 未 登录 则 显示 未 登录 控件 并 返回 ; 
知已 登录 ， 则 判定 附件 ID 是 否 合法 ， 若 不 合法 则 提示 错误 并 关闭 页 面 ， 若 合法 则 获取 
附件 URL。 


by 


7.5 ”系统 运行 效果 


到 这 里 为 止 , 一 个 虽然 功能 很 有 限 , 但 是 基本 功能 都 具备 , 而 且 非 常 利于 扩展 的 BBS 
系统 就 算 完 成 了 。 图 7-65 展示 了 系统 运行 之 后 前 台 的 效果 图 。 
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块 化 和 分 层 实现 有 
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图 7-66 是 后 合 登录 界面 的 效果 图 。 
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图 7-65 前 台 效 果 图 


图 7-67 是 系统 后 侣 管理 的 效果 图 。 
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图 7-67 后 台 栏 目 管理 效果 图 


eles 
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图 7-66 后 台 登 录 效 果 图 


经 过 本 章 的 介绍 ,相信 读者 对 ASP.NET 的 便利 性 已 经 深 有 体会 , 同时 也 对 将 系统 模 


更 进一步 的 了 解 ， 也 一 定 感觉 到 了 模块 化 实现 是 如 此 的 便利 ! 
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